home *** CD-ROM | disk | FTP | other *** search
| MacBinary | 1986-09-02 | 20.4 KB | [TEXT/EDIT] |
open in: 
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: MacBinary
(archive/macBinary).
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 10%
| dexvert
| MacBinary (archive/macBinary)
| fallback
| Supported |
| 1%
| dexvert
| TheDraw Pascal screen Image (image/theDrawPascalScreenImage)
| ext
| Unsupported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| MacBinary II, inited, Tue Sep 2 15:28:52 1986, modified Tue Sep 2 15:28:52 1986, creator Macintosh Edit, type ASCII, 20296 bytes "RegWDEF.Pas" , at 0x4fc8 348 bytes resource
| default (weak)
| |
| 99%
| file
| data
| default
| |
| 74%
| TrID
| Macintosh plain text (MacBinary)
| default
| |
| 25%
| TrID
| MacBinary 2
| default (weak)
| |
| 100%
| siegfried
| fmt/1762 MacBinary (II)
| default
| |
| 100%
| lsar
| MacBinary
| default
|
|
| id metadata |
|---|
| key | value |
|---|
| macFileType | [TEXT] |
| macFileCreator | [EDIT] |
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0b 52 65 67 57 44 45 | 46 2e 50 61 73 00 00 00 |..RegWDE|F.Pas...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 45 44 49 | 54 01 00 00 00 00 00 00 |.TEXTEDI|T.......|
|00000050| 00 00 00 00 00 4f 48 00 | 00 01 5c 9b 80 ee 74 9b |.....OH.|..\...t.|
|00000060| 80 ee 74 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..t.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 6b 68 00 00 |........|....kh..|
|00000080| 7b 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |{#######|########|
|00000090| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000000a0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000000b0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000000c0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000000d0| 7d 0d 7b 23 09 09 09 09 | 09 09 09 09 09 20 20 20 |}.{#....|..... |
|000000e0| 20 20 20 20 23 7d 0d 7b | 23 09 09 09 09 52 65 67 | #}.{|#....Reg|
|000000f0| 57 44 45 46 2e 50 61 73 | 09 09 09 09 20 20 20 20 |WDEF.Pas|.... |
|00000100| 20 20 20 23 7d 0d 7b 23 | 09 09 09 09 2d 2d 2d 2d | #}.{#|....----|
|00000110| 2d 2d 2d 2d 2d 2d 2d 09 | 09 09 09 20 20 20 20 20 |-------.|... |
|00000120| 20 20 23 7d 0d 7b 23 09 | 09 09 09 09 09 09 09 09 | #}.{#.|........|
|00000130| 20 20 20 20 20 20 20 23 | 7d 0d 7b 23 09 54 68 69 | #|}.{#.Thi|
|00000140| 73 20 70 72 6f 67 72 61 | 6d 20 69 6c 6c 75 73 74 |s progra|m illust|
|00000150| 72 61 74 65 73 20 74 68 | 65 20 75 73 65 20 6f 66 |rates th|e use of|
|00000160| 20 61 20 73 74 61 6e 64 | 61 72 64 20 57 69 6e 64 | a stand|ard Wind|
|00000170| 6f 77 20 44 65 66 69 6e | 69 74 69 6f 6e 20 20 20 |ow Defin|ition |
|00000180| 20 20 20 20 23 7d 0d 7b | 23 09 72 6f 75 74 69 6e | #}.{|#.routin|
|00000190| 65 2e 20 20 49 74 20 62 | 65 68 61 76 65 73 20 65 |e. It b|ehaves e|
|000001a0| 78 61 63 74 6c 79 20 6c | 69 6b 65 20 74 68 65 20 |xactly l|ike the |
|000001b0| 73 74 61 6e 64 61 72 64 | 20 64 6f 63 20 70 72 6f |standard| doc pro|
|000001c0| 63 2e 09 20 20 20 20 20 | 20 20 23 7d 0d 7b 23 09 |c.. | #}.{#.|
|000001d0| 09 09 09 09 09 09 09 09 | 20 20 20 20 20 20 20 23 |........| #|
|000001e0| 7d 0d 7b 23 09 54 68 69 | 73 20 65 78 61 6d 70 6c |}.{#.Thi|s exampl|
|000001f0| 65 20 77 61 73 20 77 72 | 69 74 74 65 6e 20 62 79 |e was wr|itten by|
|00000200| 20 44 61 72 72 79 6c 20 | 4c 6f 76 61 74 6f 2e 20 | Darryl |Lovato. |
|00000210| 20 20 20 20 20 20 09 09 | 20 20 20 20 20 20 20 23 | ..| #|
|00000220| 7d 0d 7b 23 09 43 6f 70 | 79 72 69 67 68 74 20 28 |}.{#.Cop|yright (|
|00000230| 63 29 20 31 39 38 36 20 | 62 79 20 54 4d 4c 20 53 |c) 1986 |by TML S|
|00000240| 79 73 74 65 6d 73 09 09 | 09 09 20 20 20 20 20 20 |ystems..|.. |
|00000250| 20 23 7d 0d 7b 23 09 09 | 09 09 09 09 09 09 09 20 | #}.{#..|....... |
|00000260| 20 20 20 20 20 20 23 7d | 0d 7b 23 23 23 23 23 23 | #}|.{######|
|00000270| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000280| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000290| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000002a0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000002b0| 23 23 23 23 23 23 23 23 | 23 7d 0d 0d 70 72 6f 67 |########|#}..prog|
|000002c0| 72 61 6d 20 52 65 67 57 | 44 45 46 3b 09 7b 20 74 |ram RegW|DEF;.{ t|
|000002d0| 68 65 20 62 65 67 69 6e | 6e 69 6e 67 7d 0d 0d 7b |he begin|ning}..{|
|000002e0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000002f0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000300| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000310| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000320| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 7d |########|#######}|
|00000330| 0d 7b 23 09 09 09 09 09 | 09 09 09 09 20 20 20 20 |.{#.....|.... |
|00000340| 20 20 20 23 7d 0d 7b 23 | 09 09 09 50 61 73 63 61 | #}.{#|...Pasca|
|00000350| 6c 20 49 6e 63 6c 75 64 | 65 20 44 69 72 65 63 74 |l Includ|e Direct|
|00000360| 69 76 65 73 20 46 6f 6c | 6c 6f 77 09 09 20 20 20 |ives Fol|low.. |
|00000370| 20 20 20 20 23 7d 0d 7b | 23 09 09 09 09 09 09 09 | #}.{|#.......|
|00000380| 09 09 20 20 20 20 20 20 | 20 23 7d 0d 7b 23 23 23 |.. | #}.{###|
|00000390| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000003a0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000003b0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000003c0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000003d0| 23 23 23 23 23 23 23 23 | 23 23 23 23 7d 0d 0d 7b |########|####}..{|
|000003e0| 24 49 20 4d 65 6d 54 79 | 70 65 73 2e 69 70 61 73 |$I MemTy|pes.ipas|
|000003f0| 09 7d 09 7b 20 72 65 61 | 64 20 74 68 65 20 6d 65 |.}.{ rea|d the me|
|00000400| 6d 6f 72 79 20 64 65 66 | 73 7d 0d 7b 24 49 20 51 |mory def|s}.{$I Q|
|00000410| 75 69 63 6b 44 72 61 77 | 2e 69 70 61 73 09 7d 09 |uickDraw|.ipas.}.|
|00000420| 7b 20 72 65 61 64 20 74 | 68 65 20 71 75 69 63 6b |{ read t|he quick|
|00000430| 64 72 61 77 20 64 65 66 | 73 7d 0d 7b 24 49 20 4f |draw def|s}.{$I O|
|00000440| 53 49 6e 74 66 2e 69 70 | 61 73 09 09 7d 09 7b 20 |SIntf.ip|as..}.{ |
|00000450| 72 65 61 64 20 74 68 65 | 20 6f 70 65 72 61 74 69 |read the| operati|
|00000460| 6e 67 20 73 79 73 74 65 | 6d 20 64 65 66 73 7d 0d |ng syste|m defs}.|
|00000470| 7b 24 49 20 54 6f 6f 6c | 69 6e 74 66 2e 69 70 61 |{$I Tool|intf.ipa|
|00000480| 73 09 7d 09 7b 20 72 65 | 61 64 20 74 68 65 20 74 |s.}.{ re|ad the t|
|00000490| 6f 6f 6c 62 6f 78 20 65 | 71 75 61 74 65 73 7d 0d |oolbox e|quates}.|
|000004a0| 0d 7b 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |.{######|########|
|000004b0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000004c0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000004d0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000004e0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000004f0| 23 7d 0d 7b 23 09 09 09 | 09 09 09 09 09 09 20 20 |#}.{#...|...... |
|00000500| 20 20 20 20 20 23 7d 0d | 7b 23 09 09 09 20 20 20 | #}.|{#... |
|00000510| 20 6c 69 6e 6b 65 72 20 | 44 69 72 65 63 74 69 76 | linker |Directiv|
|00000520| 65 73 20 46 6f 6c 6c 6f | 77 09 09 09 20 20 20 20 |es Follo|w... |
|00000530| 20 20 20 23 7d 0d 7b 23 | 09 09 09 09 09 09 09 09 | #}.{#|........|
|00000540| 09 20 20 20 20 20 20 20 | 23 7d 0d 7b 23 23 23 23 |. |#}.{####|
|00000550| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000560| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000570| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000580| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000590| 23 23 23 23 23 23 23 23 | 23 23 23 7d 0d 0d 7b 24 |########|###}..{$|
|000005a0| 54 20 41 50 50 4c 20 52 | 57 44 46 09 09 7d 09 7b |T APPL R|WDF..}.{|
|000005b0| 20 73 65 74 20 74 68 65 | 20 74 79 70 65 20 61 6e | set the| type an|
|000005c0| 64 20 63 72 65 61 74 6f | 72 7d 0d 7b 24 42 2b 09 |d creato|r}.{$B+.|
|000005d0| 09 09 7d 09 7b 20 73 65 | 74 20 74 68 65 20 62 75 |..}.{ se|t the bu|
|000005e0| 6e 64 6c 65 20 62 69 74 | 7d 0d 7b 24 4c 20 52 65 |ndle bit|}.{$L Re|
|000005f0| 67 57 44 45 46 52 65 73 | 09 09 7d 09 7b 20 6c 69 |gWDEFRes|..}.{ li|
|00000600| 6e 6b 20 74 68 65 20 72 | 65 73 6f 75 72 63 65 20 |nk the r|esource |
|00000610| 66 69 6c 65 20 74 6f 6f | 2e 2e 2e 7d 0d 0d 7b 23 |file too|...}..{#|
|00000620| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000630| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000640| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000650| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000660| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 7d 0d |########|######}.|
|00000670| 7b 23 09 09 09 09 09 09 | 09 09 09 20 20 20 20 20 |{#......|... |
|00000680| 20 20 23 7d 0d 7b 23 09 | 09 09 20 20 20 20 47 6c | #}.{#.|.. Gl|
|00000690| 6f 62 61 6c 20 43 6f 6e | 73 74 61 6e 74 73 20 46 |obal Con|stants F|
|000006a0| 6f 6c 6c 6f 77 09 09 09 | 20 20 20 20 20 20 20 23 |ollow...| #|
|000006b0| 7d 0d 7b 23 09 09 09 09 | 09 09 09 09 09 20 20 20 |}.{#....|..... |
|000006c0| 20 20 20 20 23 7d 0d 7b | 23 23 23 23 23 23 23 23 | #}.{|########|
|000006d0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000006e0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000006f0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000700| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000710| 23 23 23 23 23 23 23 7d | 0d 0d 63 6f 6e 73 74 0d |#######}|..const.|
|00000720| 20 20 41 70 70 6c 65 4d | 65 6e 75 49 44 20 3d 20 | AppleM|enuID = |
|00000730| 31 3b 09 09 7b 20 74 68 | 65 20 41 70 70 6c 65 20 |1;..{ th|e Apple |
|00000740| 6d 65 6e 75 7d 0d 20 20 | 20 20 41 62 6f 75 74 52 |menu}. | AboutR|
|00000750| 65 67 57 44 45 46 49 44 | 20 3d 20 31 3b 09 09 7b |egWDEFID| = 1;..{|
|00000760| 20 74 68 65 20 41 62 6f | 75 74 20 69 74 65 6d 7d | the Abo|ut item}|
|00000770| 0d 20 20 46 69 6c 65 4d | 65 6e 75 49 44 20 3d 20 |. FileM|enuID = |
|00000780| 32 3b 09 09 7b 20 74 68 | 65 20 46 69 6c 65 20 6d |2;..{ th|e File m|
|00000790| 65 6e 75 7d 0d 20 20 20 | 20 51 75 69 74 49 44 20 |enu}. | QuitID |
|000007a0| 3d 20 31 3b 09 09 09 7b | 20 74 68 65 20 51 75 69 |= 1;...{| the Qui|
|000007b0| 74 20 69 74 65 6d 7d 0d | 20 20 45 64 69 74 4d 65 |t item}.| EditMe|
|000007c0| 6e 75 49 44 20 3d 20 33 | 3b 09 09 7b 20 74 68 65 |nuID = 3|;..{ the|
|000007d0| 20 45 64 69 74 20 6d 65 | 6e 75 7d 0d 20 20 0d 20 | Edit me|nu}. . |
|000007e0| 20 57 69 6e 64 52 65 73 | 49 44 20 3d 20 31 3b 09 | WindRes|ID = 1;.|
|000007f0| 09 7b 20 74 68 65 20 72 | 65 73 6f 75 72 63 65 20 |.{ the r|esource |
|00000800| 69 64 20 6f 66 20 6d 79 | 20 77 69 6e 64 6f 77 7d |id of my| window}|
|00000810| 0d 20 20 41 62 6f 75 74 | 49 44 20 3d 20 33 30 30 |. About|ID = 300|
|00000820| 30 3b 09 09 7b 20 41 62 | 6f 75 74 20 44 69 61 6c |0;..{ Ab|out Dial|
|00000830| 6f 67 20 69 64 7d 0d 0d | 7b 23 23 23 23 23 23 23 |og id}..|{#######|
|00000840| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000850| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000860| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000870| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000880| 23 23 23 23 23 23 23 23 | 7d 0d 7b 23 09 09 09 09 |########|}.{#....|
|00000890| 09 09 09 09 09 20 20 20 | 20 20 20 20 23 7d 0d 7b |..... | #}.{|
|000008a0| 23 09 09 09 20 20 20 47 | 6c 6f 62 61 6c 20 56 61 |#... G|lobal Va|
|000008b0| 72 69 61 62 6c 65 73 20 | 46 6f 6c 6c 6f 77 09 09 |riables |Follow..|
|000008c0| 09 20 20 20 20 20 20 20 | 23 7d 0d 7b 23 09 09 09 |. |#}.{#...|
|000008d0| 09 09 09 09 09 09 20 20 | 20 20 20 20 20 23 7d 0d |...... | #}.|
|000008e0| 7b 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |{#######|########|
|000008f0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000900| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000910| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000920| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000930| 7d 0d 0d 76 61 72 0d 20 | 20 6d 79 4d 65 6e 75 73 |}..var. | myMenus|
|00000940| 20 3a 20 41 72 72 61 79 | 5b 41 70 70 6c 65 4d 65 | : Array|[AppleMe|
|00000950| 6e 75 49 44 2e 2e 45 64 | 69 74 4d 65 6e 75 49 44 |nuID..Ed|itMenuID|
|00000960| 5d 20 6f 66 20 4d 65 6e | 75 48 61 6e 64 6c 65 3b |] of Men|uHandle;|
|00000970| 20 7b 20 61 6c 6c 20 6f | 66 20 74 68 65 20 6d 65 | { all o|f the me|
|00000980| 6e 75 73 7d 0d 20 20 44 | 6f 6e 65 20 3a 20 42 6f |nus}. D|one : Bo|
|00000990| 6f 6c 65 61 6e 3b 09 09 | 09 7b 20 74 72 75 65 20 |olean;..|.{ true |
|000009a0| 77 68 65 6e 20 75 73 65 | 72 20 73 65 6c 65 63 74 |when use|r select|
|000009b0| 73 20 71 75 69 74 7d 0d | 20 20 52 65 67 57 44 45 |s quit}.| RegWDE|
|000009c0| 46 57 69 6e 64 6f 77 20 | 3a 20 57 69 6e 64 6f 77 |FWindow |: Window|
|000009d0| 50 74 72 3b 09 09 7b 20 | 74 68 65 20 77 69 6e 64 |Ptr;..{ |the wind|
|000009e0| 6f 77 20 77 68 69 63 68 | 20 68 6f 6c 64 73 20 6f |ow which| holds o|
|000009f0| 75 72 20 73 70 6c 69 74 | 20 62 61 72 73 7d 0d 20 |ur split| bars}. |
|00000a00| 20 47 72 6f 77 41 72 65 | 61 20 3a 20 72 65 63 74 | GrowAre|a : rect|
|00000a10| 3b 09 09 09 7b 20 72 65 | 63 74 20 69 6e 20 77 68 |;...{ re|ct in wh|
|00000a20| 69 63 68 20 74 68 65 20 | 77 69 6e 64 20 63 61 6e |ich the |wind can|
|00000a30| 20 62 65 20 67 72 6f 77 | 6e 7d 0d 20 20 44 72 61 | be grow|n}. Dra|
|00000a40| 67 41 72 65 61 20 3a 20 | 72 65 63 74 3b 09 09 09 |gArea : |rect;...|
|00000a50| 7b 20 72 65 63 74 20 69 | 6e 20 77 68 69 63 68 20 |{ rect i|n which |
|00000a60| 74 68 65 20 77 69 6e 64 | 20 63 61 6e 20 62 65 20 |the wind| can be |
|00000a70| 64 72 61 67 67 65 64 7d | 0d 20 20 6d 79 57 69 6e |dragged}|. myWin|
|00000a80| 64 6f 77 50 65 65 6b 20 | 3a 20 57 69 6e 64 6f 77 |dowPeek |: Window|
|00000a90| 50 65 65 6b 3b 09 09 7b | 20 74 6f 20 67 65 74 20 |Peek;..{| to get |
|00000aa0| 61 74 20 74 68 65 20 77 | 69 6e 64 6f 77 73 20 66 |at the w|indows f|
|00000ab0| 69 65 6c 64 73 7d 0d 0d | 7b 23 23 23 23 23 23 23 |ields}..|{#######|
|00000ac0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000ad0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000ae0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000af0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000b00| 23 23 23 23 23 23 23 23 | 7d 0d 7b 23 09 09 09 09 |########|}.{#....|
|00000b10| 09 09 09 09 09 20 20 20 | 20 20 20 20 23 7d 0d 7b |..... | #}.{|
|00000b20| 23 09 09 09 20 20 20 20 | 4d 79 57 69 6e 64 6f 77 |#... |MyWindow|
|00000b30| 44 65 66 20 66 75 6e 63 | 74 69 6f 6e 09 09 09 20 |Def func|tion... |
|00000b40| 20 20 20 20 20 20 23 7d | 0d 7b 23 09 09 09 09 09 | #}|.{#.....|
|00000b50| 09 09 09 09 20 20 20 20 | 20 20 20 23 7d 0d 7b 23 |.... | #}.{#|
|00000b60| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000b70| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000b80| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000b90| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000ba0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 7d 0d |########|######}.|
|00000bb0| 0d 66 75 6e 63 74 69 6f | 6e 20 4d 79 57 69 6e 64 |.functio|n MyWind|
|00000bc0| 6f 77 44 65 66 28 76 61 | 72 43 6f 64 65 20 3a 20 |owDef(va|rCode : |
|00000bd0| 49 6e 74 65 67 65 72 3b | 0d 09 09 09 74 68 65 57 |Integer;|....theW|
|00000be0| 69 6e 64 6f 77 20 3a 20 | 57 69 6e 64 6f 77 50 74 |indow : |WindowPt|
|00000bf0| 72 3b 0d 09 09 09 6d 65 | 73 73 61 67 65 20 3a 20 |r;....me|ssage : |
|00000c00| 49 6e 74 65 67 65 72 3b | 0d 09 09 09 70 61 72 61 |Integer;|....para|
|00000c10| 6d 20 3a 20 4c 6f 6e 67 | 49 6e 74 29 0d 09 09 09 |m : Long|Int)....|
|00000c20| 3a 20 4c 6f 6e 67 49 6e | 74 3b 0d 0d 7b 2d 2d 2d |: LongIn|t;..{---|
|00000c30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000c40| 2d 2d 20 53 65 6d 69 2d | 67 6c 6f 62 61 6c 20 74 |-- Semi-|global t|
|00000c50| 79 70 65 73 20 77 69 74 | 68 69 6e 20 74 68 65 20 |ypes wit|hin the |
|00000c60| 57 44 45 46 20 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |WDEF ---|--------|
|00000c70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 7d 0d 0d 74 |--------|----}..t|
|00000c80| 79 70 65 0d 20 20 52 65 | 63 74 50 74 72 20 3d 20 |ype. Re|ctPtr = |
|00000c90| 5e 52 65 63 74 3b 0d 0d | 7b 2d 2d 2d 2d 2d 2d 2d |^Rect;..|{-------|
|00000ca0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 20 |--------|------- |
|00000cb0| 53 65 6d 69 2d 67 6c 6f | 62 61 6c 20 76 61 72 73 |Semi-glo|bal vars|
|00000cc0| 20 77 69 74 68 69 6e 20 | 74 68 65 20 57 44 45 46 | within |the WDEF|
|00000cd0| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|00000ce0| 2d 2d 2d 2d 2d 2d 2d 2d | 7d 0d 0d 76 61 72 0d 20 |--------|}..var. |
|00000cf0| 20 61 52 65 63 74 50 74 | 72 20 3a 20 52 65 63 74 | aRectPt|r : Rect|
|00000d00| 50 74 72 3b 0d 20 20 6d | 79 57 69 6e 64 6f 77 50 |Ptr;. m|yWindowP|
|00000d10| 65 65 6b 20 3a 20 57 69 | 6e 64 6f 77 50 65 65 6b |eek : Wi|ndowPeek|
|00000d20| 3b 0d 0d 7b 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |;..{----|--------|
|00000d30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 20 44 |--------|------ D|
|00000d40| 6f 44 72 61 77 4d 65 73 | 73 61 67 65 20 70 72 6f |oDrawMes|sage pro|
|00000d50| 63 65 64 75 72 65 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |cedure -|--------|
|00000d60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000d70| 2d 2d 2d 7d 0d 0d 70 72 | 6f 63 65 64 75 72 65 20 |---}..pr|ocedure |
|00000d80| 44 6f 44 72 61 77 4d 65 | 73 73 61 67 65 28 57 69 |DoDrawMe|ssage(Wi|
|00000d90| 6e 64 54 6f 44 72 61 77 | 20 3a 20 57 69 6e 64 6f |ndToDraw| : Windo|
|00000da0| 77 50 74 72 3b 0d 09 09 | 09 20 20 44 72 61 77 50 |wPtr;...|. DrawP|
|00000db0| 61 72 61 6d 20 3a 20 4c | 6f 6e 67 49 6e 74 29 3b |aram : L|ongInt);|
|00000dc0| 0d 76 61 72 0d 20 20 54 | 69 74 6c 65 42 61 72 52 |.var. T|itleBarR|
|00000dd0| 65 63 74 20 3a 20 52 65 | 63 74 3b 0d 20 20 43 75 |ect : Re|ct;. Cu|
|00000de0| 72 72 65 6e 74 59 20 3a | 20 49 6e 74 65 67 65 72 |rrentY :| Integer|
|00000df0| 3b 0d 20 20 69 6e 64 65 | 78 20 3a 20 49 6e 74 65 |;. inde|x : Inte|
|00000e00| 67 65 72 3b 0d 20 20 47 | 6f 41 77 61 79 42 6f 78 |ger;. G|oAwayBox|
|00000e10| 20 3a 20 52 65 63 74 3b | 0d 0d 70 72 6f 63 65 64 | : Rect;|..proced|
|00000e20| 75 72 65 20 44 72 61 77 | 57 69 6e 64 6f 77 54 69 |ure Draw|WindowTi|
|00000e30| 74 6c 65 28 61 57 69 6e | 64 6f 77 50 65 65 6b 20 |tle(aWin|dowPeek |
|00000e40| 3a 20 57 69 6e 64 6f 77 | 50 65 65 6b 3b 20 74 68 |: Window|Peek; th|
|00000e50| 65 42 6f 78 20 3a 20 52 | 65 63 74 29 3b 0d 76 61 |eBox : R|ect);.va|
|00000e60| 72 0d 20 20 54 69 74 6c | 65 57 69 64 74 68 20 3a |r. Titl|eWidth :|
|00000e70| 20 49 6e 74 65 67 65 72 | 3b 0d 20 20 54 69 74 6c | Integer|;. Titl|
|00000e80| 65 42 61 72 57 69 64 74 | 68 20 3a 20 49 6e 74 65 |eBarWidt|h : Inte|
|00000e90| 67 65 72 3b 0d 20 20 6c | 65 66 74 45 64 67 65 20 |ger;. l|eftEdge |
|00000ea0| 3a 20 49 6e 74 65 67 65 | 72 3b 0d 20 20 65 72 61 |: Intege|r;. era|
|00000eb0| 73 65 52 20 3a 20 52 65 | 63 74 3b 0d 0d 62 65 67 |seR : Re|ct;..beg|
|00000ec0| 69 6e 0d 20 20 54 69 74 | 6c 65 57 69 64 74 68 20 |in. Tit|leWidth |
|00000ed0| 3a 3d 20 53 74 72 69 6e | 67 57 69 64 74 68 28 61 |:= Strin|gWidth(a|
|00000ee0| 57 69 6e 64 6f 77 50 65 | 65 6b 5e 2e 74 69 74 6c |WindowPe|ek^.titl|
|00000ef0| 65 48 61 6e 64 6c 65 5e | 5e 29 3b 0d 20 20 54 69 |eHandle^|^);. Ti|
|00000f00| 74 6c 65 42 61 72 57 69 | 64 74 68 20 3a 3d 20 74 |tleBarWi|dth := t|
|00000f10| 68 65 42 6f 78 2e 72 69 | 67 68 74 20 2d 20 74 68 |heBox.ri|ght - th|
|00000f20| 65 42 6f 78 2e 6c 65 66 | 74 3b 0d 20 20 6c 65 66 |eBox.lef|t;. lef|
|00000f30| 74 45 64 67 65 20 3a 3d | 20 28 54 69 74 6c 65 42 |tEdge :=| (TitleB|
|00000f40| 61 72 57 69 64 74 68 20 | 2d 20 54 69 74 6c 65 57 |arWidth |- TitleW|
|00000f50| 69 64 74 68 29 20 44 49 | 56 20 32 3b 0d 20 20 69 |idth) DI|V 2;. i|
|00000f60| 66 20 61 57 69 6e 64 6f | 77 50 65 65 6b 5e 2e 47 |f aWindo|wPeek^.G|
|00000f70| 6f 41 77 61 79 46 6c 61 | 67 20 74 68 65 6e 0d 20 |oAwayFla|g then. |
|00000f80| 20 20 20 69 66 20 6c 65 | 66 74 45 64 67 65 20 3c | if le|ftEdge <|
|00000f90| 20 33 32 20 74 68 65 6e | 0d 20 20 20 20 20 20 6c | 32 then|. l|
|00000fa0| 65 66 74 45 64 67 65 20 | 3a 3d 20 33 32 3b 0d 20 |eftEdge |:= 32;. |
|00000fb0| 20 6c 65 66 74 45 64 67 | 65 20 3a 3d 20 6c 65 66 | leftEdg|e := lef|
|00000fc0| 74 45 64 67 65 20 2b 20 | 74 68 65 42 6f 78 2e 6c |tEdge + |theBox.l|
|00000fd0| 65 66 74 3b 20 7b 6c 6f | 63 61 6c 20 74 6f 20 67 |eft; {lo|cal to g|
|00000fe0| 6c 6f 62 61 6c 21 21 21 | 7d 0d 20 20 65 72 61 73 |lobal!!!|}. eras|
|00000ff0| 65 52 20 3a 3d 20 74 68 | 65 42 6f 78 3b 0d 20 20 |eR := th|eBox;. |
|00001000| 49 6e 73 65 74 52 65 63 | 74 28 65 72 61 73 65 52 |InsetRec|t(eraseR|
|00001010| 2c 31 2c 31 29 3b 0d 20 | 20 65 72 61 73 65 52 2e |,1,1);. | eraseR.|
|00001020| 6c 65 66 74 20 3a 3d 20 | 6c 65 66 74 45 64 67 65 |left := |leftEdge|
|00001030| 20 2d 20 36 3b 0d 20 20 | 65 72 61 73 65 52 2e 72 | - 6;. |eraseR.r|
|00001040| 69 67 68 74 20 3a 3d 20 | 6c 65 66 74 45 64 67 65 |ight := |leftEdge|
|00001050| 20 2b 20 54 69 74 6c 65 | 57 69 64 74 68 20 2b 20 | + Title|Width + |
|00001060| 36 3b 0d 20 20 45 72 61 | 73 65 52 65 63 74 28 65 |6;. Era|seRect(e|
|00001070| 72 61 73 65 52 29 3b 0d | 20 20 4d 6f 76 65 54 6f |raseR);.| MoveTo|
|00001080| 28 6c 65 66 74 45 64 67 | 65 2c 74 68 65 42 6f 78 |(leftEdg|e,theBox|
|00001090| 2e 62 6f 74 74 6f 6d 20 | 2d 20 35 29 3b 0d 20 20 |.bottom |- 5);. |
|000010a0| 44 72 61 77 53 74 72 69 | 6e 67 28 61 57 69 6e 64 |DrawStri|ng(aWind|
|000010b0| 6f 77 50 65 65 6b 5e 2e | 74 69 74 6c 65 48 61 6e |owPeek^.|titleHan|
|000010c0| 64 6c 65 5e 5e 29 3b 0d | 65 6e 64 3b 0d 0d 62 65 |dle^^);.|end;..be|
|000010d0| 67 69 6e 0d 20 20 6d 79 | 57 69 6e 64 6f 77 50 65 |gin. my|WindowPe|
|000010e0| 65 6b 20 3a 3d 20 57 69 | 6e 64 6f 77 50 65 65 6b |ek := Wi|ndowPeek|
|000010f0| 28 57 69 6e 64 54 6f 44 | 72 61 77 29 3b 0d 20 20 |(WindToD|raw);. |
|00001100| 69 66 20 6d 79 57 69 6e | 64 6f 77 50 65 65 6b 5e |if myWin|dowPeek^|
|00001110| 2e 76 69 73 69 62 6c 65 | 20 74 68 65 6e 20 20 7b |.visible| then {|
|00001120| 69 66 20 74 68 65 20 77 | 69 6e 64 6f 77 20 69 73 |if the w|indow is|
|00001130| 20 76 69 73 69 62 6c 65 | 2c 20 74 68 65 6e 20 64 | visible|, then d|
|00001140| 72 61 77 20 69 74 7d 0d | 20 20 20 20 62 65 67 69 |raw it}.| begi|
|00001150| 6e 0d 0d 20 20 20 20 20 | 20 54 69 74 6c 65 42 61 |n.. | TitleBa|
|00001160| 72 52 65 63 74 20 3a 3d | 20 6d 79 57 69 6e 64 6f |rRect :=| myWindo|
|00001170| 77 50 65 65 6b 5e 2e 73 | 74 72 75 63 52 67 6e 5e |wPeek^.s|trucRgn^|
|00001180| 5e 2e 72 67 6e 42 42 6f | 78 3b 0d 0d 20 20 20 20 |^.rgnBBo|x;.. |
|00001190| 20 20 69 66 20 44 72 61 | 77 50 61 72 61 6d 20 3c | if Dra|wParam <|
|000011a0| 3e 20 30 20 74 68 65 6e | 20 7b 77 65 20 6a 75 73 |> 0 then| {we jus|
|000011b0| 74 20 6e 65 65 64 20 74 | 6f 20 74 6f 67 67 6c 65 |t need t|o toggle|
|000011c0| 20 67 6f 41 77 61 79 20 | 62 6f 78 7d 0d 20 20 20 | goAway |box}. |
|000011d0| 20 20 20 20 20 62 65 67 | 69 6e 0d 09 20 20 54 69 | beg|in.. Ti|
|000011e0| 74 6c 65 42 61 72 52 65 | 63 74 2e 62 6f 74 74 6f |tleBarRe|ct.botto|
|000011f0| 6d 20 3a 3d 20 54 69 74 | 6c 65 42 61 72 52 65 63 |m := Tit|leBarRec|
|00001200| 74 2e 74 6f 70 20 2b 20 | 31 39 3b 20 7b 6d 61 6b |t.top + |19; {mak|
|00001210| 65 20 72 6f 6f 6d 20 66 | 6f 72 20 74 69 74 6c 65 |e room f|or title|
|00001220| 20 62 61 72 7d 0d 09 20 | 20 47 6f 41 77 61 79 42 | bar}.. | GoAwayB|
|00001230| 6f 78 20 3a 3d 20 54 69 | 74 6c 65 42 61 72 52 65 |ox := Ti|tleBarRe|
|00001240| 63 74 3b 0d 09 20 20 47 | 6f 41 77 61 79 42 6f 78 |ct;.. G|oAwayBox|
|00001250| 2e 74 6f 70 20 3a 3d 20 | 47 6f 41 77 61 79 42 6f |.top := |GoAwayBo|
|00001260| 78 2e 74 6f 70 20 2b 20 | 34 3b 0d 09 20 20 47 6f |x.top + |4;.. Go|
|00001270| 41 77 61 79 42 6f 78 2e | 6c 65 66 74 20 3a 3d 20 |AwayBox.|left := |
|00001280| 47 6f 41 77 61 79 42 6f | 78 2e 6c 65 66 74 20 2b |GoAwayBo|x.left +|
|00001290| 20 38 3b 0d 09 20 20 47 | 6f 41 77 61 79 42 6f 78 | 8;.. G|oAwayBox|
|000012a0| 2e 62 6f 74 74 6f 6d 20 | 3a 3d 20 47 6f 41 77 61 |.bottom |:= GoAwa|
|000012b0| 79 42 6f 78 2e 62 6f 74 | 74 6f 6d 20 2d 20 34 3b |yBox.bot|tom - 4;|
|000012c0| 0d 09 20 20 47 6f 41 77 | 61 79 42 6f 78 2e 72 69 |.. GoAw|ayBox.ri|
|000012d0| 67 68 74 20 3a 3d 20 47 | 6f 41 77 61 79 42 6f 78 |ght := G|oAwayBox|
|000012e0| 2e 6c 65 66 74 20 2b 20 | 31 33 3b 0d 09 20 20 49 |.left + |13;.. I|
|000012f0| 6e 73 65 74 52 65 63 74 | 28 47 6f 41 77 61 79 42 |nsetRect|(GoAwayB|
|00001300| 6f 78 2c 32 2c 31 29 3b | 20 7b 20 6d 6f 76 65 20 |ox,2,1);| { move |
|00001310| 69 6e 20 6f 6e 20 74 68 | 65 20 73 69 64 65 73 7d |in on th|e sides}|
|00001320| 0d 09 20 20 49 6e 76 65 | 72 74 52 65 63 74 28 47 |.. Inve|rtRect(G|
|00001330| 6f 41 77 61 79 42 6f 78 | 29 3b 0d 09 65 6e 64 20 |oAwayBox|);..end |
|00001340| 7b 6f 66 20 69 66 20 44 | 72 61 77 50 61 72 61 6d |{of if D|rawParam|
|00001350| 20 3d 20 69 6e 47 6f 41 | 77 61 79 7d 0d 20 20 20 | = inGoA|way}. |
|00001360| 20 20 20 65 6c 73 65 20 | 7b 77 65 20 6e 65 65 64 | else |{we need|
|00001370| 20 74 6f 20 64 72 61 77 | 20 74 68 65 20 77 69 6e | to draw| the win|
|00001380| 64 6f 77 20 66 72 61 6d | 65 2c 20 61 6e 64 20 70 |dow fram|e, and p|
|00001390| 6f 73 73 69 62 6c 79 20 | 68 69 6c 69 74 65 20 69 |ossibly |hilite i|
|000013a0| 74 7d 0d 20 20 20 20 20 | 20 20 20 62 65 67 69 6e |t}. | begin|
|000013b0| 0d 09 20 20 50 65 6e 4e | 6f 72 6d 61 6c 3b 0d 0d |.. PenN|ormal;..|
|000013c0| 09 20 20 46 72 61 6d 65 | 52 65 63 74 28 54 69 74 |. Frame|Rect(Tit|
|000013d0| 6c 65 42 61 72 52 65 63 | 74 29 3b 0d 0d 09 20 20 |leBarRec|t);... |
|000013e0| 54 69 74 6c 65 42 61 72 | 52 65 63 74 2e 62 6f 74 |TitleBar|Rect.bot|
|000013f0| 74 6f 6d 20 3a 3d 20 54 | 69 74 6c 65 42 61 72 52 |tom := T|itleBarR|
|00001400| 65 63 74 2e 74 6f 70 20 | 2b 20 31 39 3b 20 7b 6d |ect.top |+ 19; {m|
|00001410| 61 6b 65 20 72 6f 6f 6d | 20 66 6f 72 20 74 69 74 |ake room| for tit|
|00001420| 6c 65 20 62 61 72 7d 0d | 0d 09 20 20 46 72 61 6d |le bar}.|.. Fram|
|00001430| 65 52 65 63 74 28 54 69 | 74 6c 65 42 61 72 52 65 |eRect(Ti|tleBarRe|
|00001440| 63 74 29 3b 0d 09 20 20 | 49 6e 73 65 74 52 65 63 |ct);.. |InsetRec|
|00001450| 74 28 54 69 74 6c 65 42 | 61 72 52 65 63 74 2c 31 |t(TitleB|arRect,1|
|00001460| 2c 31 29 3b 20 7b 73 68 | 72 69 6e 6b 20 62 79 20 |,1); {sh|rink by |
|00001470| 31 7d 0d 09 20 20 45 72 | 61 73 65 52 65 63 74 28 |1}.. Er|aseRect(|
|00001480| 54 69 74 6c 65 42 61 72 | 52 65 63 74 29 3b 0d 09 |TitleBar|Rect);..|
|00001490| 20 20 49 6e 73 65 74 52 | 65 63 74 28 54 69 74 6c | InsetR|ect(Titl|
|000014a0| 65 42 61 72 52 65 63 74 | 2c 2d 31 2c 2d 31 29 3b |eBarRect|,-1,-1);|
|000014b0| 20 7b 65 78 70 61 6e 64 | 20 62 79 20 31 7d 0d 0d | {expand| by 1}..|
|000014c0| 09 20 20 69 66 20 6d 79 | 57 69 6e 64 6f 77 50 65 |. if my|WindowPe|
|000014d0| 65 6b 5e 2e 68 69 6c 69 | 74 65 64 20 74 68 65 6e |ek^.hili|ted then|
|000014e0| 20 7b 20 61 64 64 20 68 | 69 6c 69 74 69 6e 67 20 | { add h|iliting |
|000014f0| 7d 0d 09 20 20 20 20 62 | 65 67 69 6e 0d 09 20 20 |}.. b|egin.. |
|00001500| 20 20 20 20 63 75 72 72 | 65 6e 74 59 20 3a 3d 20 | curr|entY := |
|00001510| 54 69 74 6c 65 42 61 72 | 52 65 63 74 2e 74 6f 70 |TitleBar|Rect.top|
|00001520| 20 2b 20 34 3b 20 7b 64 | 72 61 77 20 74 68 65 20 | + 4; {d|raw the |
|00001530| 70 61 74 74 65 72 6e 7d | 0d 09 20 20 20 20 20 20 |pattern}|.. |
|00001540| 66 6f 72 20 69 6e 64 65 | 78 20 3a 3d 20 31 20 74 |for inde|x := 1 t|
|00001550| 6f 20 36 20 64 6f 20 0d | 09 20 20 20 20 20 20 20 |o 6 do .|. |
|00001560| 20 62 65 67 69 6e 0d 09 | 09 20 20 4d 6f 76 65 54 | begin..|. MoveT|
|00001570| 6f 28 54 69 74 6c 65 42 | 61 72 52 65 63 74 2e 6c |o(TitleB|arRect.l|
|00001580| 65 66 74 20 2b 20 32 2c | 20 63 75 72 72 65 6e 74 |eft + 2,| current|
|00001590| 59 29 3b 0d 09 09 20 20 | 4c 69 6e 65 54 6f 28 54 |Y);... |LineTo(T|
|000015a0| 69 74 6c 65 42 61 72 52 | 65 63 74 2e 72 69 67 68 |itleBarR|ect.righ|
|000015b0| 74 20 2d 20 33 2c 20 63 | 75 72 72 65 6e 74 59 29 |t - 3, c|urrentY)|
|000015c0| 3b 0d 09 09 20 20 63 75 | 72 72 65 6e 74 59 20 3a |;... cu|rrentY :|
|000015d0| 3d 20 63 75 72 72 65 6e | 74 59 20 2b 20 32 3b 0d |= curren|tY + 2;.|
|000015e0| 09 09 65 6e 64 3b 0d 09 | 20 20 20 20 20 20 44 72 |..end;..| Dr|
|000015f0| 61 77 57 69 6e 64 6f 77 | 54 69 74 6c 65 28 6d 79 |awWindow|Title(my|
|00001600| 57 69 6e 64 6f 77 50 65 | 65 6b 2c 54 69 74 6c 65 |WindowPe|ek,Title|
|00001610| 42 61 72 52 65 63 74 29 | 3b 20 7b 64 72 61 77 20 |BarRect)|; {draw |
|00001620| 74 69 74 6c 65 7d 0d 09 | 20 20 20 20 20 20 69 66 |title}..| if|
|00001630| 20 6d 79 57 69 6e 64 6f | 77 50 65 65 6b 5e 2e 47 | myWindo|wPeek^.G|
|00001640| 6f 41 77 61 79 46 6c 61 | 67 20 74 68 65 6e 20 7b |oAwayFla|g then {|
|00001650| 77 65 20 6e 65 65 64 20 | 74 6f 20 64 72 61 77 20 |we need |to draw |
|00001660| 74 68 65 20 67 6f 2d 61 | 77 61 79 20 62 6f 78 7d |the go-a|way box}|
|00001670| 0d 09 20 20 20 20 20 20 | 20 20 62 65 67 69 6e 0d |.. | begin.|
|00001680| 09 09 20 20 47 6f 41 77 | 61 79 42 6f 78 20 3a 3d |.. GoAw|ayBox :=|
|00001690| 20 54 69 74 6c 65 42 61 | 72 52 65 63 74 3b 0d 09 | TitleBa|rRect;..|
|000016a0| 09 20 20 47 6f 41 77 61 | 79 42 6f 78 2e 74 6f 70 |. GoAwa|yBox.top|
|000016b0| 20 3a 3d 20 47 6f 41 77 | 61 79 42 6f 78 2e 74 6f | := GoAw|ayBox.to|
|000016c0| 70 20 2b 20 34 3b 0d 09 | 09 20 20 47 6f 41 77 61 |p + 4;..|. GoAwa|
|000016d0| 79 42 6f 78 2e 6c 65 66 | 74 20 3a 3d 20 47 6f 41 |yBox.lef|t := GoA|
|000016e0| 77 61 79 42 6f 78 2e 6c | 65 66 74 20 2b 20 38 3b |wayBox.l|eft + 8;|
|000016f0| 0d 09 09 20 20 47 6f 41 | 77 61 79 42 6f 78 2e 62 |... GoA|wayBox.b|
|00001700| 6f 74 74 6f 6d 20 3a 3d | 20 47 6f 41 77 61 79 42 |ottom :=| GoAwayB|
|00001710| 6f 78 2e 62 6f 74 74 6f | 6d 20 2d 20 34 3b 0d 09 |ox.botto|m - 4;..|
|00001720| 09 20 20 47 6f 41 77 61 | 79 42 6f 78 2e 72 69 67 |. GoAwa|yBox.rig|
|00001730| 68 74 20 3a 3d 20 47 6f | 41 77 61 79 42 6f 78 2e |ht := Go|AwayBox.|
|00001740| 6c 65 66 74 20 2b 20 31 | 33 3b 0d 09 09 20 20 45 |left + 1|3;... E|
|00001750| 72 61 73 65 52 65 63 74 | 28 47 6f 41 77 61 79 42 |raseRect|(GoAwayB|
|00001760| 6f 78 29 3b 0d 09 09 20 | 20 49 6e 73 65 74 52 65 |ox);... | InsetRe|
|00001770| 63 74 28 47 6f 41 77 61 | 79 42 6f 78 2c 31 2c 30 |ct(GoAwa|yBox,1,0|
|00001780| 29 3b 20 7b 20 6d 6f 76 | 65 20 69 6e 20 6f 6e 20 |); { mov|e in on |
|00001790| 74 68 65 20 73 69 64 65 | 73 7d 0d 09 09 20 20 46 |the side|s}... F|
|000017a0| 72 61 6d 65 52 65 63 74 | 28 47 6f 41 77 61 79 42 |rameRect|(GoAwayB|
|000017b0| 6f 78 29 3b 20 7b 61 6e | 64 20 64 72 61 77 20 74 |ox); {an|d draw t|
|000017c0| 68 65 20 62 6f 78 7d 0d | 09 09 65 6e 64 3b 0d 09 |he box}.|..end;..|
|000017d0| 20 20 20 20 65 6e 64 0d | 09 20 20 65 6c 73 65 20 | end.|. else |
|000017e0| 7b 6a 75 73 74 20 64 72 | 61 77 20 74 68 65 20 74 |{just dr|aw the t|
|000017f0| 69 74 6c 65 7d 0d 09 20 | 20 20 20 44 72 61 77 57 |itle}.. | DrawW|
|00001800| 69 6e 64 6f 77 54 69 74 | 6c 65 28 6d 79 57 69 6e |indowTit|le(myWin|
|00001810| 64 6f 77 50 65 65 6b 2c | 54 69 74 6c 65 42 61 72 |dowPeek,|TitleBar|
|00001820| 52 65 63 74 29 3b 0d 09 | 65 6e 64 3b 20 7b 6f 66 |Rect);..|end; {of|
|00001830| 20 69 66 20 44 72 61 77 | 50 61 72 61 6d 20 3d 20 | if Draw|Param = |
|00001840| 69 6e 47 6f 41 77 61 79 | 20 74 68 65 6e 2e 2e 20 |inGoAway| then.. |
|00001850| 65 6c 73 65 2e 2e 2e 7d | 0d 20 20 20 20 65 6e 64 |else...}|. end|
|00001860| 3b 20 7b 6f 66 20 69 66 | 20 77 69 6e 64 6f 77 20 |; {of if| window |
|00001870| 69 73 20 76 69 73 69 62 | 6c 65 2e 2e 2e 7d 0d 65 |is visib|le...}.e|
|00001880| 6e 64 3b 0d 0d 7b 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |nd;..{--|--------|
|00001890| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000018a0| 2d 20 44 6f 48 69 74 4d | 65 73 73 61 67 65 20 66 |- DoHitM|essage f|
|000018b0| 75 6e 63 74 69 6f 6e 20 | 2d 2d 2d 2d 2d 2d 2d 2d |unction |--------|
|000018c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000018d0| 2d 2d 2d 2d 2d 7d 0d 0d | 66 75 6e 63 74 69 6f 6e |-----}..|function|
|000018e0| 20 44 6f 48 69 74 4d 65 | 73 73 61 67 65 28 57 69 | DoHitMe|ssage(Wi|
|000018f0| 6e 64 54 6f 54 65 73 74 | 20 3a 20 57 69 6e 64 6f |ndToTest| : Windo|
|00001900| 77 50 74 72 3b 0d 09 09 | 09 74 68 65 50 61 72 61 |wPtr;...|.thePara|
|00001910| 6d 20 3a 20 4c 6f 6e 67 | 49 6e 74 29 20 3a 20 4c |m : Long|Int) : L|
|00001920| 6f 6e 67 49 6e 74 3b 0d | 76 61 72 0d 20 20 67 6c |ongInt;.|var. gl|
|00001930| 6f 62 61 6c 50 74 20 3a | 20 50 6f 69 6e 74 3b 0d |obalPt :| Point;.|
|00001940| 20 20 61 52 65 63 74 20 | 3a 20 52 65 63 74 3b 0d | aRect |: Rect;.|
|00001950| 20 20 47 6f 41 77 61 79 | 42 6f 78 20 3a 20 52 65 | GoAway|Box : Re|
|00001960| 63 74 3b 0d 20 20 61 57 | 69 6e 64 6f 77 50 65 65 |ct;. aW|indowPee|
|00001970| 6b 20 3a 20 57 69 6e 64 | 6f 77 50 65 65 6b 3b 0d |k : Wind|owPeek;.|
|00001980| 20 20 74 65 6d 70 52 65 | 63 74 20 3a 20 52 65 63 | tempRe|ct : Rec|
|00001990| 74 3b 0d 62 65 67 69 6e | 0d 20 20 67 6c 6f 62 61 |t;.begin|. globa|
|000019a0| 6c 50 74 2e 68 20 3a 3d | 20 4c 6f 57 6f 72 64 28 |lPt.h :=| LoWord(|
|000019b0| 74 68 65 50 61 72 61 6d | 29 3b 0d 20 20 67 6c 6f |theParam|);. glo|
|000019c0| 62 61 6c 50 74 2e 76 20 | 3a 3d 20 48 69 57 6f 72 |balPt.v |:= HiWor|
|000019d0| 64 28 74 68 65 50 61 72 | 61 6d 29 3b 0d 20 20 61 |d(thePar|am);. a|
|000019e0| 57 69 6e 64 6f 77 50 65 | 65 6b 20 3a 3d 20 57 69 |WindowPe|ek := Wi|
|000019f0| 6e 64 6f 77 50 65 65 6b | 28 57 69 6e 64 54 6f 54 |ndowPeek|(WindToT|
|00001a00| 65 73 74 29 3b 0d 20 20 | 61 52 65 63 74 20 3a 3d |est);. |aRect :=|
|00001a10| 20 61 57 69 6e 64 6f 77 | 50 65 65 6b 5e 2e 73 74 | aWindow|Peek^.st|
|00001a20| 72 75 63 52 67 6e 5e 5e | 2e 72 67 6e 42 42 6f 78 |rucRgn^^|.rgnBBox|
|00001a30| 3b 0d 20 20 61 52 65 63 | 74 2e 62 6f 74 74 6f 6d |;. aRec|t.bottom|
|00001a40| 20 3a 3d 20 61 52 65 63 | 74 2e 74 6f 70 20 2b 20 | := aRec|t.top + |
|00001a50| 31 39 3b 20 7b 63 72 65 | 61 74 65 20 74 42 61 72 |19; {cre|ate tBar|
|00001a60| 20 52 65 63 74 7d 0d 20 | 20 74 65 6d 70 52 65 63 | Rect}. | tempRec|
|00001a70| 74 20 3a 3d 20 61 57 69 | 6e 64 6f 77 50 65 65 6b |t := aWi|ndowPeek|
|00001a80| 5e 2e 73 74 72 75 63 52 | 67 6e 5e 5e 2e 72 67 6e |^.strucR|gn^^.rgn|
|00001a90| 42 42 6f 78 3b 0d 20 20 | 69 66 20 50 74 49 6e 52 |BBox;. |if PtInR|
|00001aa0| 65 63 74 28 67 6c 6f 62 | 61 6c 50 74 2c 74 65 6d |ect(glob|alPt,tem|
|00001ab0| 70 52 65 63 74 29 20 74 | 68 65 6e 20 7b 69 6e 20 |pRect) t|hen {in |
|00001ac0| 73 74 72 75 63 74 75 72 | 65 20 72 67 6e 3f 7d 0d |structur|e rgn?}.|
|00001ad0| 20 20 20 20 62 65 67 69 | 6e 0d 20 20 20 20 20 20 | begi|n. |
|00001ae0| 74 65 6d 70 52 65 63 74 | 20 3a 3d 20 61 57 69 6e |tempRect| := aWin|
|00001af0| 64 6f 77 50 65 65 6b 5e | 2e 63 6f 6e 74 52 67 6e |dowPeek^|.contRgn|
|00001b00| 5e 5e 2e 72 67 6e 42 42 | 6f 78 3b 0d 20 20 20 20 |^^.rgnBB|ox;. |
|00001b10| 20 20 69 66 20 50 74 49 | 6e 52 65 63 74 28 67 6c | if PtI|nRect(gl|
|00001b20| 6f 62 61 6c 50 74 2c 74 | 65 6d 70 52 65 63 74 29 |obalPt,t|empRect)|
|00001b30| 20 74 68 65 6e 20 7b 69 | 66 20 69 74 20 77 61 73 | then {i|f it was|
|00001b40| 20 69 6e 20 63 6f 6e 74 | 65 6e 74 20 72 67 6e 7d | in cont|ent rgn}|
|00001b50| 0d 20 20 20 20 20 20 20 | 20 62 65 67 69 6e 0d 09 |. | begin..|
|00001b60| 20 20 69 66 20 61 57 69 | 6e 64 6f 77 50 65 65 6b | if aWi|ndowPeek|
|00001b70| 5e 2e 68 69 6c 69 74 65 | 64 20 74 68 65 6e 20 7b |^.hilite|d then {|
|00001b80| 77 65 20 6e 65 65 64 20 | 74 6f 20 63 68 65 63 6b |we need |to check|
|00001b90| 20 74 68 65 20 63 6f 6e | 74 65 6e 74 20 62 6f 78 | the con|tent box|
|00001ba0| 7d 0d 09 20 20 20 20 62 | 65 67 69 6e 0d 09 20 20 |}.. b|egin.. |
|00001bb0| 20 20 20 20 61 52 65 63 | 74 20 3a 3d 20 61 57 69 | aRec|t := aWi|
|00001bc0| 6e 64 6f 77 50 65 65 6b | 5e 2e 63 6f 6e 74 52 67 |ndowPeek|^.contRg|
|00001bd0| 6e 5e 5e 2e 72 67 6e 42 | 42 6f 78 3b 0d 09 20 20 |n^^.rgnB|Box;.. |
|00001be0| 20 20 20 20 61 52 65 63 | 74 2e 74 6f 70 20 3a 3d | aRec|t.top :=|
|00001bf0| 20 61 52 65 63 74 2e 62 | 6f 74 74 6f 6d 20 2d 20 | aRect.b|ottom - |
|00001c00| 31 35 3b 7b 6d 61 6b 65 | 20 72 65 63 74 20 69 6e |15;{make| rect in|
|00001c10| 6c 6f 77 65 72 20 72 69 | 67 68 74 20 6f 66 20 63 |lower ri|ght of c|
|00001c20| 6f 6e 74 65 6e 74 7d 0d | 09 20 20 20 20 20 20 61 |ontent}.|. a|
|00001c30| 52 65 63 74 2e 6c 65 66 | 74 20 3a 3d 20 61 52 65 |Rect.lef|t := aRe|
|00001c40| 63 74 2e 72 69 67 68 74 | 20 2d 20 31 35 3b 0d 09 |ct.right| - 15;..|
|00001c50| 20 20 20 20 20 20 69 66 | 20 50 74 49 6e 52 65 63 | if| PtInRec|
|00001c60| 74 28 67 6c 6f 62 61 6c | 50 74 2c 61 52 65 63 74 |t(global|Pt,aRect|
|00001c70| 29 20 74 68 65 6e 20 7b | 69 74 20 77 61 73 20 69 |) then {|it was i|
|00001c80| 6e 20 74 68 65 20 64 72 | 61 67 20 62 6f 78 7d 0d |n the dr|ag box}.|
|00001c90| 09 20 20 20 20 20 20 20 | 20 44 6f 48 69 74 4d 65 |. | DoHitMe|
|00001ca0| 73 73 61 67 65 20 3a 3d | 20 77 49 6e 47 72 6f 77 |ssage :=| wInGrow|
|00001cb0| 0d 09 20 20 20 20 20 20 | 65 6c 73 65 0d 09 20 20 |.. |else.. |
|00001cc0| 20 20 20 20 20 20 44 6f | 48 69 74 4d 65 73 73 61 | Do|HitMessa|
|00001cd0| 67 65 20 3a 3d 20 77 49 | 6e 43 6f 6e 74 65 6e 74 |ge := wI|nContent|
|00001ce0| 3b 0d 09 20 20 20 20 65 | 6e 64 0d 09 20 20 65 6c |;.. e|nd.. el|
|00001cf0| 73 65 0d 09 20 20 20 20 | 44 6f 48 69 74 4d 65 73 |se.. |DoHitMes|
|00001d00| 73 61 67 65 20 3a 3d 20 | 77 49 6e 43 6f 6e 74 65 |sage := |wInConte|
|00001d10| 6e 74 3b 0d 09 65 6e 64 | 0d 20 20 20 20 20 20 65 |nt;..end|. e|
|00001d20| 6c 73 65 20 69 66 20 50 | 74 49 6e 52 65 63 74 28 |lse if P|tInRect(|
|00001d30| 67 6c 6f 62 61 6c 50 74 | 2c 61 52 65 63 74 29 20 |globalPt|,aRect) |
|00001d40| 74 68 65 6e 20 7b 69 6e | 20 74 68 65 20 64 72 61 |then {in| the dra|
|00001d50| 67 20 6f 72 20 67 6f 2d | 61 77 61 79 7d 0d 20 20 |g or go-|away}. |
|00001d60| 20 20 20 20 20 20 62 65 | 67 69 6e 0d 09 20 20 69 | be|gin.. i|
|00001d70| 66 20 61 57 69 6e 64 6f | 77 50 65 65 6b 5e 2e 68 |f aWindo|wPeek^.h|
|00001d80| 69 6c 69 74 65 64 20 74 | 68 65 6e 20 7b 77 65 20 |ilited t|hen {we |
|00001d90| 6e 65 65 64 20 74 6f 20 | 63 68 65 63 6b 20 74 68 |need to |check th|
|00001da0| 65 20 67 6f 2d 61 77 61 | 79 20 62 6f 78 7d 0d 09 |e go-awa|y box}..|
|00001db0| 20 20 20 20 62 65 67 69 | 6e 0d 09 20 20 20 20 20 | begi|n.. |
|00001dc0| 20 47 6f 41 77 61 79 42 | 6f 78 20 3a 3d 20 61 52 | GoAwayB|ox := aR|
|00001dd0| 65 63 74 3b 0d 09 20 20 | 20 20 20 20 47 6f 41 77 |ect;.. | GoAw|
|00001de0| 61 79 42 6f 78 2e 74 6f | 70 20 3a 3d 20 47 6f 41 |ayBox.to|p := GoA|
|00001df0| 77 61 79 42 6f 78 2e 74 | 6f 70 20 2b 20 34 3b 0d |wayBox.t|op + 4;.|
|00001e00| 09 20 20 20 20 20 20 47 | 6f 41 77 61 79 42 6f 78 |. G|oAwayBox|
|00001e10| 2e 6c 65 66 74 20 3a 3d | 20 47 6f 41 77 61 79 42 |.left :=| GoAwayB|
|00001e20| 6f 78 2e 6c 65 66 74 20 | 2b 20 38 3b 0d 09 20 20 |ox.left |+ 8;.. |
|00001e30| 20 20 20 20 47 6f 41 77 | 61 79 42 6f 78 2e 62 6f | GoAw|ayBox.bo|
|00001e40| 74 74 6f 6d 20 3a 3d 20 | 47 6f 41 77 61 79 42 6f |ttom := |GoAwayBo|
|00001e50| 78 2e 62 6f 74 74 6f 6d | 20 2d 20 34 3b 0d 09 20 |x.bottom| - 4;.. |
|00001e60| 20 20 20 20 20 47 6f 41 | 77 61 79 42 6f 78 2e 72 | GoA|wayBox.r|
|00001e70| 69 67 68 74 20 3a 3d 20 | 47 6f 41 77 61 79 42 6f |ight := |GoAwayBo|
|00001e80| 78 2e 6c 65 66 74 20 2b | 20 31 33 3b 0d 09 20 20 |x.left +| 13;.. |
|00001e90| 20 20 20 20 49 6e 73 65 | 74 52 65 63 74 28 47 6f | Inse|tRect(Go|
|00001ea0| 41 77 61 79 42 6f 78 2c | 31 2c 30 29 3b 20 7b 20 |AwayBox,|1,0); { |
|00001eb0| 6d 6f 76 65 20 69 6e 20 | 6f 6e 20 74 68 65 20 73 |move in |on the s|
|00001ec0| 69 64 65 73 7d 0d 09 20 | 20 20 20 20 20 69 66 20 |ides}.. | if |
|00001ed0| 50 74 49 6e 52 65 63 74 | 28 67 6c 6f 62 61 6c 50 |PtInRect|(globalP|
|00001ee0| 74 2c 47 6f 41 77 61 79 | 42 6f 78 29 20 74 68 65 |t,GoAway|Box) the|
|00001ef0| 6e 20 7b 69 74 20 77 61 | 73 20 69 6e 20 74 68 65 |n {it wa|s in the|
|00001f00| 20 64 72 61 67 20 62 6f | 78 7d 0d 09 20 20 20 20 | drag bo|x}.. |
|00001f10| 20 20 20 20 44 6f 48 69 | 74 4d 65 73 73 61 67 65 | DoHi|tMessage|
|00001f20| 20 3a 3d 20 77 49 6e 47 | 6f 41 77 61 79 0d 09 20 | := wInG|oAway.. |
|00001f30| 20 20 20 20 20 65 6c 73 | 65 0d 09 20 20 20 20 20 | els|e.. |
|00001f40| 20 20 20 44 6f 48 69 74 | 4d 65 73 73 61 67 65 20 | DoHit|Message |
|00001f50| 3a 3d 20 77 49 6e 44 72 | 61 67 3b 0d 09 20 20 20 |:= wInDr|ag;.. |
|00001f60| 20 65 6e 64 0d 09 20 20 | 65 6c 73 65 0d 09 20 20 | end.. |else.. |
|00001f70| 20 20 44 6f 48 69 74 4d | 65 73 73 61 67 65 20 3a | DoHitM|essage :|
|00001f80| 3d 20 77 49 6e 44 72 61 | 67 3b 0d 09 65 6e 64 0d |= wInDra|g;..end.|
|00001f90| 20 20 20 20 20 20 65 6c | 73 65 20 7b 69 74 20 77 | el|se {it w|
|00001fa0| 61 73 20 69 6e 20 6f 75 | 72 20 77 69 6e 64 6f 77 |as in ou|r window|
|00001fb0| 20 66 72 61 6d 65 7d 0d | 20 20 20 20 20 20 20 20 | frame}.| |
|00001fc0| 44 6f 48 69 74 4d 65 73 | 73 61 67 65 20 3a 3d 20 |DoHitMes|sage := |
|00001fd0| 77 4e 6f 48 69 74 3b 0d | 20 20 20 20 65 6e 64 0d |wNoHit;.| end.|
|00001fe0| 20 20 65 6c 73 65 20 7b | 69 74 20 77 61 73 6e 27 | else {|it wasn'|
|00001ff0| 74 20 69 6e 20 6f 75 72 | 20 77 69 6e 64 6f 77 20 |t in our| window |
|00002000| 61 74 20 61 6c 6c 7d 0d | 20 20 20 20 44 6f 48 69 |at all}.| DoHi|
|00002010| 74 4d 65 73 73 61 67 65 | 20 3a 3d 20 77 4e 6f 48 |tMessage| := wNoH|
|00002020| 69 74 3b 0d 65 6e 64 3b | 0d 0d 7b 2d 2d 2d 2d 2d |it;.end;|..{-----|
|00002030| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002040| 2d 2d 2d 20 44 6f 43 61 | 6c 63 52 67 6e 73 4d 65 |--- DoCa|lcRgnsMe|
|00002050| 73 73 61 67 65 20 70 72 | 6f 63 65 64 75 72 65 20 |ssage pr|ocedure |
|00002060| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002070| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 7d 0d 0d 70 72 6f |--------|--}..pro|
|00002080| 63 65 64 75 72 65 20 44 | 6f 43 61 6c 63 52 67 6e |cedure D|oCalcRgn|
|00002090| 73 4d 65 73 73 61 67 65 | 28 57 69 6e 64 54 6f 43 |sMessage|(WindToC|
|000020a0| 61 6c 63 20 3a 20 57 69 | 6e 64 6f 77 50 74 72 29 |alc : Wi|ndowPtr)|
|000020b0| 3b 0d 76 61 72 0d 20 20 | 74 65 6d 70 52 65 63 74 |;.var. |tempRect|
|000020c0| 20 3a 20 52 65 63 74 3b | 0d 20 20 61 57 69 6e 64 | : Rect;|. aWind|
|000020d0| 6f 77 50 65 65 6b 20 3a | 20 57 69 6e 64 6f 77 50 |owPeek :| WindowP|
|000020e0| 65 65 6b 3b 0d 20 20 61 | 52 67 6e 20 3a 20 52 67 |eek;. a|Rgn : Rg|
|000020f0| 6e 48 61 6e 64 6c 65 3b | 0d 62 65 67 69 6e 0d 20 |nHandle;|.begin. |
|00002100| 20 74 65 6d 70 52 65 63 | 74 20 3a 3d 20 57 69 6e | tempRec|t := Win|
|00002110| 64 54 6f 43 61 6c 63 5e | 2e 50 6f 72 74 52 65 63 |dToCalc^|.PortRec|
|00002120| 74 3b 0d 20 20 0d 20 20 | 4f 66 66 73 65 74 52 65 |t;. . |OffsetRe|
|00002130| 63 74 28 74 65 6d 70 52 | 65 63 74 2c 20 2d 57 69 |ct(tempR|ect, -Wi|
|00002140| 6e 64 54 6f 43 61 6c 63 | 5e 2e 50 6f 72 74 42 69 |ndToCalc|^.PortBi|
|00002150| 74 73 2e 42 6f 75 6e 64 | 73 2e 4c 65 66 74 2c 0d |ts.Bound|s.Left,.|
|00002160| 20 20 09 09 09 20 20 2d | 57 69 6e 64 54 6f 43 61 | ... -|WindToCa|
|00002170| 6c 63 5e 2e 50 6f 72 74 | 42 69 74 73 2e 42 6f 75 |lc^.Port|Bits.Bou|
|00002180| 6e 64 73 2e 54 6f 70 29 | 3b 0d 20 0d 20 20 61 57 |nds.Top)|;. . aW|
|00002190| 69 6e 64 6f 77 50 65 65 | 6b 20 3a 3d 20 57 69 6e |indowPee|k := Win|
|000021a0| 64 6f 77 50 65 65 6b 28 | 57 69 6e 64 54 6f 43 61 |dowPeek(|WindToCa|
|000021b0| 6c 63 29 3b 0d 20 20 52 | 65 63 74 52 67 6e 28 61 |lc);. R|ectRgn(a|
|000021c0| 57 69 6e 64 6f 77 50 65 | 65 6b 5e 2e 63 6f 6e 74 |WindowPe|ek^.cont|
|000021d0| 52 67 6e 2c 74 65 6d 70 | 52 65 63 74 29 3b 20 7b |Rgn,temp|Rect); {|
|000021e0| 73 65 74 20 63 6f 6e 74 | 65 6e 74 20 72 67 6e 7d |set cont|ent rgn}|
|000021f0| 0d 20 20 0d 20 20 49 6e | 73 65 74 52 65 63 74 28 |. . In|setRect(|
|00002200| 74 65 6d 70 52 65 63 74 | 2c 2d 31 2c 2d 31 29 3b |tempRect|,-1,-1);|
|00002210| 0d 20 20 74 65 6d 70 52 | 65 63 74 2e 74 6f 70 20 |. tempR|ect.top |
|00002220| 3a 3d 20 74 65 6d 70 52 | 65 63 74 2e 74 6f 70 20 |:= tempR|ect.top |
|00002230| 2d 20 31 38 3b 20 7b 6d | 61 6b 65 20 72 6f 6f 6d |- 18; {m|ake room|
|00002240| 20 66 6f 72 20 74 69 74 | 6c 65 20 62 61 72 7d 0d | for tit|le bar}.|
|00002250| 20 20 52 65 63 74 52 67 | 6e 28 61 57 69 6e 64 6f | RectRg|n(aWindo|
|00002260| 77 50 65 65 6b 5e 2e 73 | 74 72 75 63 52 67 6e 2c |wPeek^.s|trucRgn,|
|00002270| 74 65 6d 70 52 65 63 74 | 29 3b 20 7b 73 65 74 20 |tempRect|); {set |
|00002280| 73 74 72 75 63 74 75 72 | 65 20 72 67 6e 7d 0d 65 |structur|e rgn}.e|
|00002290| 6e 64 3b 0d 0d 7b 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |nd;..{--|--------|
|000022a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000022b0| 20 44 6f 47 72 6f 77 4d | 65 73 73 61 67 65 20 70 | DoGrowM|essage p|
|000022c0| 72 6f 63 65 64 75 72 65 | 20 2d 2d 2d 2d 2d 2d 2d |rocedure| -------|
|000022d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000022e0| 2d 2d 2d 2d 2d 7d 0d 0d | 70 72 6f 63 65 64 75 72 |-----}..|procedur|
|000022f0| 65 20 44 6f 47 72 6f 77 | 4d 65 73 73 61 67 65 28 |e DoGrow|Message(|
|00002300| 57 69 6e 64 54 6f 47 72 | 6f 77 20 3a 20 57 69 6e |WindToGr|ow : Win|
|00002310| 64 6f 77 50 74 72 3b 0d | 09 09 09 20 20 74 68 65 |dowPtr;.|... the|
|00002320| 47 72 6f 77 52 65 63 74 | 20 3a 20 52 65 63 74 29 |GrowRect| : Rect)|
|00002330| 3b 0d 0d 62 65 67 69 6e | 20 7b 6e 6f 74 65 3a 20 |;..begin| {note: |
|00002340| 77 65 20 72 65 61 6c 6c | 79 20 64 6f 6e 74 20 6e |we reall|y dont n|
|00002350| 65 65 64 20 74 68 65 20 | 77 69 6e 64 6f 77 20 70 |eed the |window p|
|00002360| 74 72 2c 20 6a 75 73 74 | 20 74 68 65 20 72 65 63 |tr, just| the rec|
|00002370| 74 7d 0d 20 20 74 68 65 | 47 72 6f 77 52 65 63 74 |t}. the|GrowRect|
|00002380| 2e 74 6f 70 20 3a 3d 20 | 74 68 65 47 72 6f 77 52 |.top := |theGrowR|
|00002390| 65 63 74 2e 74 6f 70 20 | 2d 20 31 39 3b 0d 20 20 |ect.top |- 19;. |
|000023a0| 46 72 61 6d 65 52 65 63 | 74 28 74 68 65 47 72 6f |FrameRec|t(theGro|
|000023b0| 77 52 65 63 74 29 3b 0d | 20 20 74 68 65 47 72 6f |wRect);.| theGro|
|000023c0| 77 52 65 63 74 2e 74 6f | 70 20 3a 3d 20 74 68 65 |wRect.to|p := the|
|000023d0| 47 72 6f 77 52 65 63 74 | 2e 74 6f 70 20 2b 20 31 |GrowRect|.top + 1|
|000023e0| 38 3b 0d 20 20 4d 6f 76 | 65 54 6f 28 74 68 65 47 |8;. Mov|eTo(theG|
|000023f0| 72 6f 77 52 65 63 74 2e | 6c 65 66 74 2c 74 68 65 |rowRect.|left,the|
|00002400| 47 72 6f 77 52 65 63 74 | 2e 74 6f 70 29 3b 20 7b |GrowRect|.top); {|
|00002410| 64 72 61 77 20 74 6f 70 | 20 6c 69 6e 65 20 28 74 |draw top| line (t|
|00002420| 6f 20 64 65 6c 69 6d 69 | 74 20 64 72 61 67 20 61 |o delimi|t drag a|
|00002430| 72 65 61 29 7d 0d 20 20 | 4c 69 6e 65 54 6f 28 74 |rea)}. |LineTo(t|
|00002440| 68 65 47 72 6f 77 52 65 | 63 74 2e 72 69 67 68 74 |heGrowRe|ct.right|
|00002450| 2c 74 68 65 47 72 6f 77 | 52 65 63 74 2e 74 6f 70 |,theGrow|Rect.top|
|00002460| 29 3b 0d 20 20 4d 6f 76 | 65 54 6f 28 74 68 65 47 |);. Mov|eTo(theG|
|00002470| 72 6f 77 52 65 63 74 2e | 72 69 67 68 74 20 2d 20 |rowRect.|right - |
|00002480| 31 35 2c 20 74 68 65 47 | 72 6f 77 52 65 63 74 2e |15, theG|rowRect.|
|00002490| 74 6f 70 29 3b 20 7b 73 | 68 6f 77 20 73 63 72 6f |top); {s|how scro|
|000024a0| 6c 6c 20 61 72 65 61 73 | 7d 0d 20 20 4c 69 6e 65 |ll areas|}. Line|
|000024b0| 54 6f 28 74 68 65 47 72 | 6f 77 52 65 63 74 2e 72 |To(theGr|owRect.r|
|000024c0| 69 67 68 74 20 2d 20 31 | 35 2c 20 74 68 65 47 72 |ight - 1|5, theGr|
|000024d0| 6f 77 52 65 63 74 2e 62 | 6f 74 74 6f 6d 29 3b 0d |owRect.b|ottom);.|
|000024e0| 20 20 4d 6f 76 65 54 6f | 28 74 68 65 47 72 6f 77 | MoveTo|(theGrow|
|000024f0| 52 65 63 74 2e 6c 65 66 | 74 2c 74 68 65 47 72 6f |Rect.lef|t,theGro|
|00002500| 77 52 65 63 74 2e 62 6f | 74 74 6f 6d 20 2d 20 31 |wRect.bo|ttom - 1|
|00002510| 35 29 3b 0d 20 20 4c 69 | 6e 65 54 6f 28 74 68 65 |5);. Li|neTo(the|
|00002520| 47 72 6f 77 52 65 63 74 | 2e 72 69 67 68 74 2c 74 |GrowRect|.right,t|
|00002530| 68 65 47 72 6f 77 52 65 | 63 74 2e 62 6f 74 74 6f |heGrowRe|ct.botto|
|00002540| 6d 20 2d 20 31 35 29 3b | 0d 65 6e 64 3b 0d 0d 7b |m - 15);|.end;..{|
|00002550| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002560| 2d 2d 2d 2d 2d 2d 2d 2d | 20 44 6f 44 72 61 77 53 |--------| DoDrawS|
|00002570| 69 7a 65 4d 65 73 73 61 | 67 65 20 70 72 6f 63 65 |izeMessa|ge proce|
|00002580| 64 75 72 65 20 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |dure ---|--------|
|00002590| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 7d |--------|-------}|
|000025a0| 0d 0d 70 72 6f 63 65 64 | 75 72 65 20 44 6f 44 72 |..proced|ure DoDr|
|000025b0| 61 77 53 69 7a 65 4d 65 | 73 73 61 67 65 28 57 69 |awSizeMe|ssage(Wi|
|000025c0| 6e 64 54 6f 44 72 61 77 | 20 3a 20 57 69 6e 64 6f |ndToDraw| : Windo|
|000025d0| 77 50 74 72 29 3b 0d 76 | 61 72 0d 20 20 74 65 6d |wPtr);.v|ar. tem|
|000025e0| 70 52 65 63 74 20 3a 20 | 52 65 63 74 3b 0d 20 20 |pRect : |Rect;. |
|000025f0| 62 6f 78 52 65 63 74 20 | 3a 20 52 65 63 74 3b 0d |boxRect |: Rect;.|
|00002600| 62 65 67 69 6e 0d 20 20 | 53 65 74 50 6f 72 74 28 |begin. |SetPort(|
|00002610| 57 69 6e 64 54 6f 44 72 | 61 77 29 3b 0d 20 20 74 |WindToDr|aw);. t|
|00002620| 65 6d 70 52 65 63 74 20 | 3a 3d 20 57 69 6e 64 54 |empRect |:= WindT|
|00002630| 6f 44 72 61 77 5e 2e 50 | 6f 72 74 52 65 63 74 3b |oDraw^.P|ortRect;|
|00002640| 0d 20 20 74 65 6d 70 52 | 65 63 74 2e 6c 65 66 74 |. tempR|ect.left|
|00002650| 20 3a 3d 20 74 65 6d 70 | 52 65 63 74 2e 72 69 67 | := temp|Rect.rig|
|00002660| 68 74 20 2d 20 31 35 3b | 0d 20 20 74 65 6d 70 52 |ht - 15;|. tempR|
|00002670| 65 63 74 2e 74 6f 70 20 | 3a 3d 20 74 65 6d 70 52 |ect.top |:= tempR|
|00002680| 65 63 74 2e 62 6f 74 74 | 6f 6d 20 2d 20 31 35 3b |ect.bott|om - 15;|
|00002690| 0d 20 20 62 6f 78 52 65 | 63 74 20 3a 3d 20 74 65 |. boxRe|ct := te|
|000026a0| 6d 70 52 65 63 74 3b 20 | 7b 74 68 65 20 67 72 6f |mpRect; |{the gro|
|000026b0| 77 20 69 63 6f 6e 20 61 | 72 65 61 7d 0d 0d 20 20 |w icon a|rea}.. |
|000026c0| 6d 79 57 69 6e 64 6f 77 | 50 65 65 6b 20 3a 3d 20 |myWindow|Peek := |
|000026d0| 57 69 6e 64 6f 77 50 65 | 65 6b 28 57 69 6e 64 54 |WindowPe|ek(WindT|
|000026e0| 6f 44 72 61 77 29 3b 0d | 20 20 0d 20 20 74 65 6d |oDraw);.| . tem|
|000026f0| 70 52 65 63 74 2e 74 6f | 70 20 3a 3d 20 57 69 6e |pRect.to|p := Win|
|00002700| 64 54 6f 44 72 61 77 5e | 2e 50 6f 72 74 52 65 63 |dToDraw^|.PortRec|
|00002710| 74 2e 74 6f 70 3b 20 20 | 7b 64 72 61 77 20 74 68 |t.top; |{draw th|
|00002720| 65 20 73 63 72 6f 6c 6c | 20 62 61 72 20 66 72 61 |e scroll| bar fra|
|00002730| 6d 65 7d 0d 20 20 45 72 | 61 73 65 52 65 63 74 28 |me}. Er|aseRect(|
|00002740| 74 65 6d 70 52 65 63 74 | 29 3b 0d 20 20 4d 6f 76 |tempRect|);. Mov|
|00002750| 65 54 6f 28 74 65 6d 70 | 52 65 63 74 2e 6c 65 66 |eTo(temp|Rect.lef|
|00002760| 74 2c 74 65 6d 70 52 65 | 63 74 2e 74 6f 70 29 3b |t,tempRe|ct.top);|
|00002770| 0d 20 20 4c 69 6e 65 54 | 6f 28 74 65 6d 70 52 65 |. LineT|o(tempRe|
|00002780| 63 74 2e 6c 65 66 74 2c | 74 65 6d 70 52 65 63 74 |ct.left,|tempRect|
|00002790| 2e 62 6f 74 74 6f 6d 29 | 3b 0d 20 20 74 65 6d 70 |.bottom)|;. temp|
|000027a0| 52 65 63 74 2e 72 69 67 | 68 74 20 3a 3d 20 74 65 |Rect.rig|ht := te|
|000027b0| 6d 70 52 65 63 74 2e 72 | 69 67 68 74 20 2d 20 31 |mpRect.r|ight - 1|
|000027c0| 35 3b 0d 20 20 74 65 6d | 70 52 65 63 74 2e 74 6f |5;. tem|pRect.to|
|000027d0| 70 20 3a 3d 20 74 65 6d | 70 52 65 63 74 2e 62 6f |p := tem|pRect.bo|
|000027e0| 74 74 6f 6d 20 2d 20 31 | 35 3b 0d 20 20 74 65 6d |ttom - 1|5;. tem|
|000027f0| 70 52 65 63 74 2e 6c 65 | 66 74 20 3a 3d 20 57 69 |pRect.le|ft := Wi|
|00002800| 6e 64 54 6f 44 72 61 77 | 5e 2e 50 6f 72 74 52 65 |ndToDraw|^.PortRe|
|00002810| 63 74 2e 6c 65 66 74 3b | 0d 20 20 45 72 61 73 65 |ct.left;|. Erase|
|00002820| 52 65 63 74 28 74 65 6d | 70 52 65 63 74 29 3b 0d |Rect(tem|pRect);.|
|00002830| 20 20 74 65 6d 70 52 65 | 63 74 2e 72 69 67 68 74 | tempRe|ct.right|
|00002840| 20 3a 3d 20 74 65 6d 70 | 52 65 63 74 2e 72 69 67 | := temp|Rect.rig|
|00002850| 68 74 20 2b 20 31 35 3b | 0d 20 20 4d 6f 76 65 54 |ht + 15;|. MoveT|
|00002860| 6f 28 74 65 6d 70 52 65 | 63 74 2e 6c 65 66 74 2c |o(tempRe|ct.left,|
|00002870| 74 65 6d 70 52 65 63 74 | 2e 74 6f 70 29 3b 0d 20 |tempRect|.top);. |
|00002880| 20 4c 69 6e 65 54 6f 28 | 74 65 6d 70 52 65 63 74 | LineTo(|tempRect|
|00002890| 2e 72 69 67 68 74 2c 74 | 65 6d 70 52 65 63 74 2e |.right,t|empRect.|
|000028a0| 74 6f 70 29 3b 0d 0d 20 | 20 69 66 20 6d 79 57 69 |top);.. | if myWi|
|000028b0| 6e 64 6f 77 50 65 65 6b | 5e 2e 68 69 6c 69 74 65 |ndowPeek|^.hilite|
|000028c0| 64 20 74 68 65 6e 20 7b | 64 72 61 77 20 74 68 65 |d then {|draw the|
|000028d0| 20 67 72 6f 77 20 69 63 | 6f 6e 7d 0d 20 20 20 20 | grow ic|on}. |
|000028e0| 62 65 67 69 6e 0d 20 20 | 20 20 20 20 49 6e 73 65 |begin. | Inse|
|000028f0| 74 52 65 63 74 28 62 6f | 78 52 65 63 74 2c 31 2c |tRect(bo|xRect,1,|
|00002900| 31 29 3b 0d 20 20 20 20 | 20 20 62 6f 78 52 65 63 |1);. | boxRec|
|00002910| 74 2e 74 6f 70 20 3a 3d | 20 62 6f 78 52 65 63 74 |t.top :=| boxRect|
|00002920| 2e 74 6f 70 20 2b 20 34 | 3b 0d 20 20 20 20 20 20 |.top + 4|;. |
|00002930| 62 6f 78 52 65 63 74 2e | 6c 65 66 74 20 3a 3d 20 |boxRect.|left := |
|00002940| 62 6f 78 52 65 63 74 2e | 6c 65 66 74 20 2b 20 34 |boxRect.|left + 4|
|00002950| 3b 0d 20 20 20 20 20 20 | 46 72 61 6d 65 52 65 63 |;. |FrameRec|
|00002960| 74 28 62 6f 78 52 65 63 | 74 29 3b 0d 20 20 20 20 |t(boxRec|t);. |
|00002970| 20 20 62 6f 78 52 65 63 | 74 2e 72 69 67 68 74 20 | boxRec|t.right |
|00002980| 3a 3d 20 62 6f 78 52 65 | 63 74 2e 72 69 67 68 74 |:= boxRe|ct.right|
|00002990| 20 2d 20 32 3b 0d 20 20 | 20 20 20 20 62 6f 78 52 | - 2;. | boxR|
|000029a0| 65 63 74 2e 62 6f 74 74 | 6f 6d 20 3a 3d 20 62 6f |ect.bott|om := bo|
|000029b0| 78 52 65 63 74 2e 62 6f | 74 74 6f 6d 20 2d 20 32 |xRect.bo|ttom - 2|
|000029c0| 3b 0d 20 20 20 20 20 20 | 4f 66 66 73 65 74 52 65 |;. |OffsetRe|
|000029d0| 63 74 28 62 6f 78 52 65 | 63 74 2c 2d 32 2c 2d 32 |ct(boxRe|ct,-2,-2|
|000029e0| 29 3b 0d 20 20 20 20 20 | 20 45 72 61 73 65 52 65 |);. | EraseRe|
|000029f0| 63 74 28 62 6f 78 52 65 | 63 74 29 3b 0d 20 20 20 |ct(boxRe|ct);. |
|00002a00| 20 20 20 46 72 61 6d 65 | 52 65 63 74 28 62 6f 78 | Frame|Rect(box|
|00002a10| 52 65 63 74 29 3b 0d 20 | 20 20 20 20 65 6e 64 0d |Rect);. | end.|
|00002a20| 20 20 65 6c 73 65 20 7b | 65 72 61 73 65 20 74 68 | else {|erase th|
|00002a30| 65 20 67 72 6f 77 20 69 | 63 6f 6e 7d 0d 20 20 20 |e grow i|con}. |
|00002a40| 20 62 65 67 69 6e 0d 20 | 20 20 20 20 20 49 6e 73 | begin. | Ins|
|00002a50| 65 74 52 65 63 74 28 62 | 6f 78 52 65 63 74 2c 31 |etRect(b|oxRect,1|
|00002a60| 2c 31 29 3b 0d 20 20 20 | 20 20 20 45 72 61 73 65 |,1);. | Erase|
|00002a70| 52 65 63 74 28 62 6f 78 | 52 65 63 74 29 3b 0d 20 |Rect(box|Rect);. |
|00002a80| 20 20 20 65 6e 64 3b 0d | 65 6e 64 3b 0d 0d 7b 2d | end;.|end;..{-|
|00002a90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002aa0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 20 4d 61 69 6e 20 |--------|-- Main |
|00002ab0| 50 72 6f 63 20 77 69 74 | 68 69 6e 20 57 44 45 46 |Proc wit|hin WDEF|
|00002ac0| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|00002ad0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 7d 0d |--------|------}.|
|00002ae0| 0d 62 65 67 69 6e 20 20 | 7b 20 63 61 73 65 20 6f |.begin |{ case o|
|00002af0| 75 74 20 6f 6e 20 74 68 | 65 20 6d 65 73 73 61 67 |ut on th|e messag|
|00002b00| 65 20 61 6e 64 20 6a 75 | 6d 70 20 74 6f 20 74 68 |e and ju|mp to th|
|00002b10| 65 20 61 70 70 72 6f 70 | 72 69 61 74 65 20 72 6f |e approp|riate ro|
|00002b20| 75 74 69 6e 65 7d 0d 20 | 20 4d 79 57 69 6e 64 6f |utine}. | MyWindo|
|00002b30| 77 44 65 66 20 3a 3d 20 | 30 3b 20 7b 62 75 74 20 |wDef := |0; {but |
|00002b40| 66 69 72 73 74 20 69 6e | 69 74 20 72 65 73 75 6c |first in|it resul|
|00002b50| 74 7d 0d 20 20 63 61 73 | 65 20 6d 65 73 73 61 67 |t}. cas|e messag|
|00002b60| 65 20 6f 66 0d 20 20 20 | 20 77 44 72 61 77 20 3a |e of. | wDraw :|
|00002b70| 09 09 7b 20 64 72 61 77 | 20 77 69 6e 64 6f 77 20 |..{ draw| window |
|00002b80| 66 72 61 6d 65 7d 0d 20 | 20 20 20 20 20 62 65 67 |frame}. | beg|
|00002b90| 69 6e 0d 20 20 20 20 20 | 20 20 20 44 6f 44 72 61 |in. | DoDra|
|00002ba0| 77 4d 65 73 73 61 67 65 | 28 74 68 65 57 69 6e 64 |wMessage|(theWind|
|00002bb0| 6f 77 2c 20 70 61 72 61 | 6d 29 3b 0d 20 20 20 20 |ow, para|m);. |
|00002bc0| 20 20 65 6e 64 3b 0d 20 | 20 20 20 77 48 69 74 20 | end;. | wHit |
|00002bd0| 3a 09 09 7b 20 74 65 6c | 6c 20 77 68 61 74 20 72 |:..{ tel|l what r|
|00002be0| 67 6e 20 74 68 65 20 6d | 6f 75 73 65 20 77 61 73 |gn the m|ouse was|
|00002bf0| 20 70 72 65 73 73 65 64 | 20 69 6e 7d 0d 20 20 20 | pressed| in}. |
|00002c00| 20 20 20 62 65 67 69 6e | 0d 20 20 20 20 20 20 20 | begin|. |
|00002c10| 20 4d 79 57 69 6e 64 6f | 77 44 65 66 20 3a 3d 20 | MyWindo|wDef := |
|00002c20| 44 6f 48 69 74 4d 65 73 | 73 61 67 65 28 74 68 65 |DoHitMes|sage(the|
|00002c30| 57 69 6e 64 6f 77 2c 70 | 61 72 61 6d 29 3b 0d 20 |Window,p|aram);. |
|00002c40| 20 20 20 20 20 65 6e 64 | 3b 0d 20 20 20 20 77 43 | end|;. wC|
|00002c50| 61 6c 63 52 67 6e 73 20 | 3a 09 09 7b 20 63 61 6c |alcRgns |:..{ cal|
|00002c60| 63 75 6c 61 74 65 20 73 | 74 72 75 63 74 52 67 6e |culate s|tructRgn|
|00002c70| 20 61 6e 64 20 63 6f 6e | 74 52 67 6e 7d 0d 20 20 | and con|tRgn}. |
|00002c80| 20 20 20 20 62 65 67 69 | 6e 0d 20 20 20 20 20 20 | begi|n. |
|00002c90| 20 20 44 6f 43 61 6c 63 | 52 67 6e 73 4d 65 73 73 | DoCalc|RgnsMess|
|00002ca0| 61 67 65 28 74 68 65 57 | 69 6e 64 6f 77 29 3b 0d |age(theW|indow);.|
|00002cb0| 20 20 20 20 20 20 65 6e | 64 3b 0d 20 20 20 20 77 | en|d;. w|
|00002cc0| 4e 65 77 20 3a 09 09 7b | 20 64 6f 20 61 6e 79 20 |New :..{| do any |
|00002cd0| 61 64 64 69 74 69 6f 6e | 61 6c 20 69 6e 69 74 69 |addition|al initi|
|00002ce0| 61 6c 69 7a 61 74 69 6f | 6e 7d 0d 20 20 20 20 20 |alizatio|n}. |
|00002cf0| 20 62 65 67 69 6e 09 09 | 7b 20 77 65 20 64 6f 6e | begin..|{ we don|
|00002d00| 74 20 6e 65 65 64 20 74 | 6f 20 64 6f 20 61 6e 79 |t need t|o do any|
|00002d10| 7d 0d 20 20 20 20 20 20 | 65 6e 64 3b 0d 20 20 20 |}. |end;. |
|00002d20| 20 77 44 69 73 70 6f 73 | 65 20 3a 09 09 7b 20 64 | wDispos|e :..{ d|
|00002d30| 6f 20 61 6e 79 20 61 64 | 64 69 74 69 6f 6e 61 6c |o any ad|ditional|
|00002d40| 20 64 69 73 70 6f 73 61 | 6c 20 61 63 74 69 6f 6e | disposa|l action|
|00002d50| 73 7d 0d 20 20 20 20 20 | 20 62 65 67 69 6e 09 09 |s}. | begin..|
|00002d60| 7b 20 77 65 20 64 6f 6e | 74 20 6e 65 65 64 20 74 |{ we don|t need t|
|00002d70| 6f 20 64 6f 20 61 6e 79 | 7d 0d 20 20 20 20 20 20 |o do any|}. |
|00002d80| 65 6e 64 3b 0d 20 20 20 | 20 77 47 72 6f 77 20 3a |end;. | wGrow :|
|00002d90| 09 09 7b 20 64 72 61 77 | 20 77 69 6e 64 6f 77 27 |..{ draw| window'|
|00002da0| 73 20 67 72 6f 77 20 69 | 6d 61 67 65 7d 0d 20 20 |s grow i|mage}. |
|00002db0| 20 20 20 20 62 65 67 69 | 6e 0d 20 20 20 20 20 20 | begi|n. |
|00002dc0| 20 20 61 52 65 63 74 50 | 74 72 20 3a 3d 20 52 65 | aRectP|tr := Re|
|00002dd0| 63 74 50 74 72 28 70 61 | 72 61 6d 29 3b 0d 20 20 |ctPtr(pa|ram);. |
|00002de0| 20 20 20 20 20 20 44 6f | 47 72 6f 77 4d 65 73 73 | Do|GrowMess|
|00002df0| 61 67 65 28 74 68 65 57 | 69 6e 64 6f 77 2c 61 52 |age(theW|indow,aR|
|00002e00| 65 63 74 50 74 72 5e 29 | 3b 0d 20 20 20 20 20 20 |ectPtr^)|;. |
|00002e10| 65 6e 64 3b 0d 20 20 20 | 20 77 44 72 61 77 47 49 |end;. | wDrawGI|
|00002e20| 63 6f 6e 20 3a 09 7b 20 | 64 72 61 77 20 73 69 7a |con :.{ |draw siz|
|00002e30| 65 20 62 6f 78 20 69 6e | 20 63 6f 6e 74 65 6e 74 |e box in| content|
|00002e40| 20 72 67 6e 7d 0d 20 20 | 20 20 20 20 62 65 67 69 | rgn}. | begi|
|00002e50| 6e 0d 20 20 20 20 20 20 | 20 20 44 6f 44 72 61 77 |n. | DoDraw|
|00002e60| 53 69 7a 65 4d 65 73 73 | 61 67 65 28 74 68 65 57 |SizeMess|age(theW|
|00002e70| 69 6e 64 6f 77 29 3b 0d | 20 20 20 20 20 20 65 6e |indow);.| en|
|00002e80| 64 3b 0d 20 20 65 6e 64 | 3b 0d 65 6e 64 3b 0d 0d |d;. end|;.end;..|
|00002e90| 7b 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |{#######|########|
|00002ea0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00002eb0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00002ec0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00002ed0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00002ee0| 7d 0d 7b 23 09 09 09 09 | 09 09 09 09 09 20 20 20 |}.{#....|..... |
|00002ef0| 20 20 20 20 23 7d 0d 7b | 23 09 09 09 20 20 20 20 | #}.{|#... |
|00002f00| 20 53 68 6f 77 41 62 6f | 75 74 20 70 72 6f 63 65 | ShowAbo|ut proce|
|00002f10| 64 75 72 65 09 09 09 20 | 20 20 20 20 20 20 23 7d |dure... | #}|
|00002f20| 0d 7b 23 09 09 09 09 09 | 09 09 09 09 20 20 20 20 |.{#.....|.... |
|00002f30| 20 20 20 23 7d 0d 7b 23 | 23 23 23 23 23 23 23 23 | #}.{#|########|
|00002f40| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00002f50| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00002f60| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00002f70| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00002f80| 23 23 23 23 23 23 7d 0d | 0d 70 72 6f 63 65 64 75 |######}.|.procedu|
|00002f90| 72 65 20 53 68 6f 77 41 | 62 6f 75 74 3b 09 09 7b |re ShowA|bout;..{|
|00002fa0| 20 67 69 76 65 20 6d 65 | 20 73 6f 6d 65 20 63 72 | give me| some cr|
|00002fb0| 65 61 64 69 74 7d 0d 76 | 61 72 0d 20 20 74 68 65 |eadit}.v|ar. the|
|00002fc0| 44 6c 6f 67 20 3a 20 44 | 69 61 6c 6f 67 50 74 72 |Dlog : D|ialogPtr|
|00002fd0| 3b 0d 20 20 74 68 65 49 | 74 65 6d 20 3a 20 49 6e |;. theI|tem : In|
|00002fe0| 74 65 67 65 72 3b 0d 62 | 65 67 69 6e 0d 20 20 74 |teger;.b|egin. t|
|00002ff0| 68 65 44 6c 6f 67 20 3a | 3d 20 47 65 74 4e 65 77 |heDlog :|= GetNew|
|00003000| 44 69 61 6c 6f 67 28 41 | 62 6f 75 74 49 44 2c 6e |Dialog(A|boutID,n|
|00003010| 69 6c 2c 50 6f 69 6e 74 | 65 72 28 2d 31 29 29 3b |il,Point|er(-1));|
|00003020| 0d 20 20 4d 6f 64 61 6c | 44 69 61 6c 6f 67 28 6e |. Modal|Dialog(n|
|00003030| 69 6c 2c 74 68 65 49 74 | 65 6d 29 3b 0d 20 20 44 |il,theIt|em);. D|
|00003040| 69 73 70 6f 73 44 69 61 | 6c 6f 67 28 74 68 65 44 |isposDia|log(theD|
|00003050| 6c 6f 67 29 3b 0d 65 6e | 64 3b 0d 0d 7b 23 23 23 |log);.en|d;..{###|
|00003060| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003070| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003080| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003090| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000030a0| 23 23 23 23 23 23 23 23 | 23 23 23 23 7d 0d 7b 23 |########|####}.{#|
|000030b0| 09 09 09 09 09 09 09 09 | 09 20 20 20 20 20 20 20 |........|. |
|000030c0| 23 7d 0d 7b 23 09 09 09 | 20 20 20 20 50 72 6f 63 |#}.{#...| Proc|
|000030d0| 65 73 73 4d 65 6e 75 20 | 70 72 6f 63 65 64 75 72 |essMenu |procedur|
|000030e0| 65 09 09 09 20 20 20 20 | 20 20 20 23 7d 0d 7b 23 |e... | #}.{#|
|000030f0| 09 09 09 09 09 09 09 09 | 09 20 20 20 20 20 20 20 |........|. |
|00003100| 23 7d 0d 7b 23 23 23 23 | 23 23 23 23 23 23 23 23 |#}.{####|########|
|00003110| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003120| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003130| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003140| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003150| 23 23 23 7d 0d 0d 70 72 | 6f 63 65 64 75 72 65 20 |###}..pr|ocedure |
|00003160| 50 72 6f 63 65 73 73 4d | 65 6e 75 28 63 6f 64 65 |ProcessM|enu(code|
|00003170| 57 6f 72 64 20 3a 20 4c | 6f 6e 67 69 6e 74 29 3b |Word : L|ongint);|
|00003180| 09 7b 20 68 61 6e 64 6c | 65 20 6d 65 6e 75 20 73 |.{ handl|e menu s|
|00003190| 65 6c 65 63 74 69 6f 6e | 73 7d 0d 76 61 72 0d 20 |election|s}.var. |
|000031a0| 20 6d 65 6e 75 4e 75 6d | 20 3a 20 49 6e 74 65 67 | menuNum| : Integ|
|000031b0| 65 72 3b 0d 20 20 69 74 | 65 6d 4e 75 6d 20 3a 20 |er;. it|emNum : |
|000031c0| 49 6e 74 65 67 65 72 3b | 0d 20 20 4e 61 6d 65 48 |Integer;|. NameH|
|000031d0| 6f 6c 64 65 72 20 3a 20 | 73 74 72 32 35 35 3b 0d |older : |str255;.|
|000031e0| 20 20 64 75 6d 6d 79 20 | 3a 20 49 6e 74 65 67 65 | dummy |: Intege|
|000031f0| 72 3b 0d 20 20 79 75 63 | 6b 20 3a 20 62 6f 6f 6c |r;. yuc|k : bool|
|00003200| 65 61 6e 3b 0d 62 65 67 | 69 6e 0d 20 20 69 66 20 |ean;.beg|in. if |
|00003210| 63 6f 64 65 57 6f 72 64 | 20 3c 3e 20 30 20 74 68 |codeWord| <> 0 th|
|00003220| 65 6e 09 7b 20 6e 6f 74 | 68 69 6e 67 20 77 61 73 |en.{ not|hing was|
|00003230| 20 73 65 6c 65 63 74 65 | 64 7d 0d 20 20 20 20 62 | selecte|d}. b|
|00003240| 65 67 69 6e 0d 20 20 20 | 20 20 20 6d 65 6e 75 4e |egin. | menuN|
|00003250| 75 6d 20 3a 3d 20 48 69 | 57 6f 72 64 28 63 6f 64 |um := Hi|Word(cod|
|00003260| 65 57 6f 72 64 29 3b 0d | 20 20 20 20 20 20 69 74 |eWord);.| it|
|00003270| 65 6d 4e 75 6d 20 3a 3d | 20 4c 6f 57 6f 72 64 28 |emNum :=| LoWord(|
|00003280| 63 6f 64 65 57 6f 72 64 | 29 3b 0d 20 20 20 20 20 |codeWord|);. |
|00003290| 20 63 61 73 65 20 6d 65 | 6e 75 4e 75 6d 20 6f 66 | case me|nuNum of|
|000032a0| 20 7b 20 74 68 65 20 64 | 69 66 66 65 72 65 6e 74 | { the d|ifferent|
|000032b0| 20 6d 65 6e 75 73 7d 0d | 20 20 20 20 20 20 20 20 | menus}.| |
|000032c0| 41 70 70 6c 65 4d 65 6e | 75 49 44 20 3a 0d 09 20 |AppleMen|uID :.. |
|000032d0| 20 62 65 67 69 6e 0d 09 | 20 20 20 20 69 66 20 69 | begin..| if i|
|000032e0| 74 65 6d 4e 75 6d 20 3c | 20 33 20 74 68 65 6e 0d |temNum <| 3 then.|
|000032f0| 09 20 20 20 20 20 20 62 | 65 67 69 6e 0d 09 20 20 |. b|egin.. |
|00003300| 20 20 20 20 20 20 53 68 | 6f 77 41 62 6f 75 74 3b | Sh|owAbout;|
|00003310| 0d 09 20 20 20 20 20 20 | 65 6e 64 0d 09 20 20 20 |.. |end.. |
|00003320| 20 65 6c 73 65 0d 09 20 | 20 20 20 20 20 62 65 67 | else.. | beg|
|00003330| 69 6e 0d 09 20 20 20 20 | 20 20 20 20 47 65 74 49 |in.. | GetI|
|00003340| 74 65 6d 28 6d 79 4d 65 | 6e 75 73 5b 41 70 70 6c |tem(myMe|nus[Appl|
|00003350| 65 4d 65 6e 75 49 44 5d | 2c 69 74 65 6d 4e 75 6d |eMenuID]|,itemNum|
|00003360| 2c 4e 61 6d 65 48 6f 6c | 64 65 72 29 3b 0d 09 09 |,NameHol|der);...|
|00003370| 64 75 6d 6d 79 20 3a 3d | 20 4f 70 65 6e 44 65 73 |dummy :=| OpenDes|
|00003380| 6b 41 63 63 28 4e 61 6d | 65 48 6f 6c 64 65 72 29 |kAcc(Nam|eHolder)|
|00003390| 3b 0d 09 20 20 20 20 20 | 20 65 6e 64 3b 0d 09 20 |;.. | end;.. |
|000033a0| 20 65 6e 64 3b 0d 09 46 | 69 6c 65 4d 65 6e 75 49 | end;..F|ileMenuI|
|000033b0| 44 20 3a 20 0d 09 20 20 | 62 65 67 69 6e 0d 09 20 |D : .. |begin.. |
|000033c0| 20 20 20 44 6f 6e 65 20 | 3a 3d 20 74 72 75 65 3b | Done |:= true;|
|000033d0| 0d 09 20 20 65 6e 64 3b | 0d 09 45 64 69 74 4d 65 |.. end;|..EditMe|
|000033e0| 6e 75 49 44 20 3a 0d 09 | 20 20 62 65 67 69 6e 0d |nuID :..| begin.|
|000033f0| 09 20 20 20 20 79 75 63 | 6b 20 3a 3d 20 53 79 73 |. yuc|k := Sys|
|00003400| 74 65 6d 45 64 69 74 28 | 69 74 65 6d 4e 75 6d 20 |temEdit(|itemNum |
|00003410| 2d 20 31 29 3b 0d 09 20 | 20 65 6e 64 3b 0d 20 20 |- 1);.. | end;. |
|00003420| 20 20 20 20 65 6e 64 3b | 0d 20 20 20 20 20 20 48 | end;|. H|
|00003430| 69 6c 69 74 65 4d 65 6e | 75 28 30 29 3b 0d 20 20 |iliteMen|u(0);. |
|00003440| 20 20 65 6e 64 3b 0d 65 | 6e 64 3b 0d 0d 7b 23 23 | end;.e|nd;..{##|
|00003450| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003460| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003470| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003480| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003490| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 7d 0d 7b |########|#####}.{|
|000034a0| 23 09 09 09 09 09 09 09 | 09 09 20 20 20 20 20 20 |#.......|.. |
|000034b0| 20 23 7d 0d 7b 23 09 09 | 09 44 65 61 6c 20 57 69 | #}.{#..|.Deal Wi|
|000034c0| 74 68 20 4d 6f 75 73 65 | 20 44 6f 77 6e 73 20 70 |th Mouse| Downs p|
|000034d0| 72 6f 63 65 64 75 72 65 | 09 09 09 20 20 20 20 20 |rocedure|... |
|000034e0| 20 20 23 7d 0d 7b 23 09 | 09 09 09 09 09 09 09 09 | #}.{#.|........|
|000034f0| 20 20 20 20 20 20 20 23 | 7d 0d 7b 23 23 23 23 23 | #|}.{#####|
|00003500| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003510| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003520| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003530| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003540| 23 23 23 23 23 23 23 23 | 23 23 7d 0d 0d 70 72 6f |########|##}..pro|
|00003550| 63 65 64 75 72 65 20 44 | 65 61 6c 57 69 74 68 4d |cedure D|ealWithM|
|00003560| 6f 75 73 65 44 6f 77 6e | 73 28 74 68 65 45 76 65 |ouseDown|s(theEve|
|00003570| 6e 74 3a 20 45 76 65 6e | 74 52 65 63 6f 72 64 29 |nt: Even|tRecord)|
|00003580| 3b 0d 76 61 72 0d 20 20 | 6c 6f 63 61 74 69 6f 6e |;.var. |location|
|00003590| 20 3a 20 49 6e 74 65 67 | 65 72 3b 0d 20 20 77 69 | : Integ|er;. wi|
|000035a0| 6e 64 6f 77 50 6f 69 6e | 74 65 64 54 6f 20 3a 20 |ndowPoin|tedTo : |
|000035b0| 57 69 6e 64 6f 77 50 74 | 72 3b 0d 20 20 6d 6f 75 |WindowPt|r;. mou|
|000035c0| 73 65 4c 6f 63 20 3a 20 | 70 6f 69 6e 74 3b 0d 20 |seLoc : |point;. |
|000035d0| 20 77 69 6e 64 6f 77 4c | 6f 63 20 3a 20 69 6e 74 | windowL|oc : int|
|000035e0| 65 67 65 72 3b 0d 20 20 | 56 61 6e 64 48 20 3a 20 |eger;. |VandH : |
|000035f0| 4c 6f 6e 67 69 6e 74 3b | 0d 20 20 48 65 69 67 68 |Longint;|. Heigh|
|00003600| 74 20 3a 20 49 6e 74 65 | 67 65 72 3b 0d 20 20 57 |t : Inte|ger;. W|
|00003610| 69 64 74 68 20 3a 20 49 | 6e 74 65 67 65 72 3b 0d |idth : I|nteger;.|
|00003620| 62 65 67 69 6e 0d 20 20 | 6d 6f 75 73 65 4c 6f 63 |begin. |mouseLoc|
|00003630| 20 3a 3d 20 74 68 65 45 | 76 65 6e 74 2e 77 68 65 | := theE|vent.whe|
|00003640| 72 65 3b 0d 20 20 77 69 | 6e 64 6f 77 4c 6f 63 20 |re;. wi|ndowLoc |
|00003650| 3a 3d 20 46 69 6e 64 57 | 69 6e 64 6f 77 28 6d 6f |:= FindW|indow(mo|
|00003660| 75 73 65 4c 6f 63 2c 77 | 69 6e 64 6f 77 50 6f 69 |useLoc,w|indowPoi|
|00003670| 6e 74 65 64 54 6f 29 3b | 0d 20 20 63 61 73 65 20 |ntedTo);|. case |
|00003680| 77 69 6e 64 6f 77 4c 6f | 63 20 6f 66 0d 20 20 20 |windowLo|c of. |
|00003690| 20 69 6e 4d 65 6e 75 42 | 61 72 20 3a 20 0d 20 20 | inMenuB|ar : . |
|000036a0| 20 20 20 20 62 65 67 69 | 6e 0d 20 20 20 20 20 20 | begi|n. |
|000036b0| 20 20 50 72 6f 63 65 73 | 73 4d 65 6e 75 28 4d 65 | Proces|sMenu(Me|
|000036c0| 6e 75 53 65 6c 65 63 74 | 28 6d 6f 75 73 65 4c 6f |nuSelect|(mouseLo|
|000036d0| 63 29 29 3b 0d 20 20 20 | 20 20 20 65 6e 64 3b 0d |c));. | end;.|
|000036e0| 20 20 20 20 69 6e 53 79 | 73 57 69 6e 64 6f 77 20 | inSy|sWindow |
|000036f0| 3a 20 0d 20 20 20 20 20 | 20 62 65 67 69 6e 0d 20 |: . | begin. |
|00003700| 20 20 20 20 20 20 20 53 | 79 73 74 65 6d 43 6c 69 | S|ystemCli|
|00003710| 63 6b 28 74 68 65 45 76 | 65 6e 74 2c 77 69 6e 64 |ck(theEv|ent,wind|
|00003720| 6f 77 50 6f 69 6e 74 65 | 64 54 6f 29 3b 0d 20 20 |owPointe|dTo);. |
|00003730| 20 20 20 20 65 6e 64 3b | 0d 20 20 20 20 69 6e 43 | end;|. inC|
|00003740| 6f 6e 74 65 6e 74 20 3a | 0d 20 20 20 20 20 20 62 |ontent :|. b|
|00003750| 65 67 69 6e 0d 20 20 20 | 20 20 20 20 20 69 66 20 |egin. | if |
|00003760| 77 69 6e 64 6f 77 50 6f | 69 6e 74 65 64 54 6f 20 |windowPo|intedTo |
|00003770| 3c 3e 20 46 72 6f 6e 74 | 57 69 6e 64 6f 77 20 74 |<> Front|Window t|
|00003780| 68 65 6e 0d 09 20 20 62 | 65 67 69 6e 0d 09 20 20 |hen.. b|egin.. |
|00003790| 20 20 53 65 6c 65 63 74 | 57 69 6e 64 6f 77 28 77 | Select|Window(w|
|000037a0| 69 6e 64 6f 77 50 6f 69 | 6e 74 65 64 54 6f 29 3b |indowPoi|ntedTo);|
|000037b0| 0d 09 20 20 65 6e 64 3b | 0d 20 20 20 20 20 20 65 |.. end;|. e|
|000037c0| 6e 64 3b 0d 20 20 20 20 | 69 6e 47 72 6f 77 20 3a |nd;. |inGrow :|
|000037d0| 0d 20 20 20 20 20 20 62 | 65 67 69 6e 0d 20 20 20 |. b|egin. |
|000037e0| 20 20 20 20 20 69 66 20 | 77 69 6e 64 6f 77 50 6f | if |windowPo|
|000037f0| 69 6e 74 65 64 54 6f 20 | 3c 3e 20 46 72 6f 6e 74 |intedTo |<> Front|
|00003800| 57 69 6e 64 6f 77 20 74 | 68 65 6e 0d 09 20 20 62 |Window t|hen.. b|
|00003810| 65 67 69 6e 0d 09 20 20 | 20 20 53 65 6c 65 63 74 |egin.. | Select|
|00003820| 57 69 6e 64 6f 77 28 77 | 69 6e 64 6f 77 50 6f 69 |Window(w|indowPoi|
|00003830| 6e 74 65 64 54 6f 29 3b | 0d 09 20 20 65 6e 64 0d |ntedTo);|.. end.|
|00003840| 09 65 6c 73 65 0d 09 20 | 20 62 65 67 69 6e 0d 09 |.else.. | begin..|
|00003850| 20 20 20 20 47 72 6f 77 | 41 72 65 61 2e 6c 65 66 | Grow|Area.lef|
|00003860| 74 20 3a 3d 20 31 35 30 | 3b 0d 09 20 20 20 20 47 |t := 150|;.. G|
|00003870| 72 6f 77 41 72 65 61 2e | 74 6f 70 20 3a 3d 20 35 |rowArea.|top := 5|
|00003880| 30 3b 0d 09 20 20 20 20 | 56 61 6e 64 48 20 3a 3d |0;.. |VandH :=|
|00003890| 20 47 72 6f 77 57 69 6e | 64 6f 77 28 77 69 6e 64 | GrowWin|dow(wind|
|000038a0| 6f 77 50 6f 69 6e 74 65 | 64 54 6f 2c 6d 6f 75 73 |owPointe|dTo,mous|
|000038b0| 65 4c 6f 63 2c 47 72 6f | 77 41 72 65 61 29 3b 0d |eLoc,Gro|wArea);.|
|000038c0| 09 20 20 20 20 69 66 20 | 56 61 6e 64 48 20 3c 3e |. if |VandH <>|
|000038d0| 20 30 20 74 68 65 6e 0d | 09 20 20 20 20 20 20 62 | 0 then.|. b|
|000038e0| 65 67 69 6e 0d 09 20 20 | 20 20 20 20 20 20 48 65 |egin.. | He|
|000038f0| 69 67 68 74 20 3a 3d 20 | 48 69 57 6f 72 64 28 56 |ight := |HiWord(V|
|00003900| 61 6e 64 48 29 3b 0d 09 | 09 57 69 64 74 68 20 3a |andH);..|.Width :|
|00003910| 3d 20 4c 6f 57 6f 72 64 | 28 56 61 6e 64 48 29 3b |= LoWord|(VandH);|
|00003920| 0d 09 09 69 66 20 48 65 | 69 67 68 74 3c 20 35 30 |...if He|ight< 50|
|00003930| 20 74 68 65 6e 0d 09 09 | 20 20 48 65 69 67 68 74 | then...| Height|
|00003940| 20 3a 3d 20 35 30 3b 0d | 09 09 69 66 20 57 69 64 | := 50;.|..if Wid|
|00003950| 74 68 20 3c 20 31 35 30 | 20 74 68 65 6e 0d 09 09 |th < 150| then...|
|00003960| 20 20 57 69 64 74 68 20 | 20 3a 3d 20 31 35 30 3b | Width | := 150;|
|00003970| 0d 09 20 20 20 20 20 20 | 20 20 53 69 7a 65 57 69 |.. | SizeWi|
|00003980| 6e 64 6f 77 28 77 69 6e | 64 6f 77 50 6f 69 6e 74 |ndow(win|dowPoint|
|00003990| 65 64 54 6f 2c 57 69 64 | 74 68 2c 48 65 69 67 68 |edTo,Wid|th,Heigh|
|000039a0| 74 2c 74 72 75 65 29 3b | 0d 09 20 20 20 20 20 20 |t,true);|.. |
|000039b0| 20 20 49 6e 76 61 6c 52 | 65 63 74 28 77 69 6e 64 | InvalR|ect(wind|
|000039c0| 6f 77 50 6f 69 6e 74 65 | 64 54 6f 5e 2e 70 6f 72 |owPointe|dTo^.por|
|000039d0| 74 52 65 63 74 29 3b 20 | 7b 20 73 6f 20 77 65 20 |tRect); |{ so we |
|000039e0| 77 69 6c 6c 20 75 70 64 | 61 74 65 20 77 69 6e 64 |will upd|ate wind|
|000039f0| 6f 77 7d 0d 09 20 20 20 | 20 20 65 6e 64 3b 0d 09 |ow}.. | end;..|
|00003a00| 20 20 65 6e 64 3b 0d 20 | 20 20 20 20 20 65 6e 64 | end;. | end|
|00003a10| 3b 0d 20 20 20 20 69 6e | 44 72 61 67 20 3a 20 0d |;. in|Drag : .|
|00003a20| 20 20 20 20 20 20 62 65 | 67 69 6e 0d 20 20 20 20 | be|gin. |
|00003a30| 20 20 20 20 44 72 61 67 | 57 69 6e 64 6f 77 28 77 | Drag|Window(w|
|00003a40| 69 6e 64 6f 77 50 6f 69 | 6e 74 65 64 54 6f 2c 6d |indowPoi|ntedTo,m|
|00003a50| 6f 75 73 65 4c 6f 63 2c | 44 72 61 67 41 72 65 61 |ouseLoc,|DragArea|
|00003a60| 29 3b 0d 09 53 65 6c 65 | 63 74 57 69 6e 64 6f 77 |);..Sele|ctWindow|
|00003a70| 28 77 69 6e 64 6f 77 50 | 6f 69 6e 74 65 64 54 6f |(windowP|ointedTo|
|00003a80| 29 3b 0d 20 20 20 20 20 | 20 65 6e 64 3b 0d 20 20 |);. | end;. |
|00003a90| 20 20 69 6e 47 6f 41 77 | 61 79 20 3a 0d 20 20 20 | inGoAw|ay :. |
|00003aa0| 20 20 20 62 65 67 69 6e | 0d 20 20 20 20 20 20 20 | begin|. |
|00003ab0| 20 69 66 20 54 72 61 63 | 6b 47 6f 41 77 61 79 28 | if Trac|kGoAway(|
|00003ac0| 77 69 6e 64 6f 77 50 6f | 69 6e 74 65 64 54 6f 2c |windowPo|intedTo,|
|00003ad0| 6d 6f 75 73 65 4c 6f 63 | 29 20 74 68 65 6e 0d 09 |mouseLoc|) then..|
|00003ae0| 20 20 44 6f 6e 65 20 3a | 3d 20 74 72 75 65 3b 0d | Done :|= true;.|
|00003af0| 20 20 20 20 20 20 65 6e | 64 3b 0d 20 20 65 6e 64 | en|d;. end|
|00003b00| 3b 0d 65 6e 64 3b 0d 0d | 7b 23 23 23 23 23 23 23 |;.end;..|{#######|
|00003b10| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003b20| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003b30| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003b40| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003b50| 23 23 23 23 23 23 23 23 | 7d 0d 7b 23 09 09 09 09 |########|}.{#....|
|00003b60| 09 09 09 09 09 20 20 20 | 20 20 20 20 23 7d 0d 7b |..... | #}.{|
|00003b70| 23 09 09 09 44 65 61 6c | 20 57 69 74 68 20 4b 65 |#...Deal| With Ke|
|00003b80| 79 20 44 6f 77 6e 73 20 | 70 72 6f 63 65 64 75 72 |y Downs |procedur|
|00003b90| 65 09 09 09 20 20 20 20 | 20 20 20 23 7d 0d 7b 23 |e... | #}.{#|
|00003ba0| 09 09 09 09 09 09 09 09 | 09 20 20 20 20 20 20 20 |........|. |
|00003bb0| 23 7d 0d 7b 23 23 23 23 | 23 23 23 23 23 23 23 23 |#}.{####|########|
|00003bc0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003bd0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003be0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003bf0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003c00| 23 23 23 7d 0d 0d 70 72 | 6f 63 65 64 75 72 65 20 |###}..pr|ocedure |
|00003c10| 44 65 61 6c 57 69 74 68 | 4b 65 79 44 6f 77 6e 73 |DealWith|KeyDowns|
|00003c20| 28 74 68 65 45 76 65 6e | 74 3a 20 45 76 65 6e 74 |(theEven|t: Event|
|00003c30| 52 65 63 6f 72 64 29 3b | 0d 74 79 70 65 0d 20 20 |Record);|.type. |
|00003c40| 54 72 69 63 6b 20 3d 20 | 70 61 63 6b 65 64 20 72 |Trick = |packed r|
|00003c50| 65 63 6f 72 64 0d 20 20 | 20 20 63 61 73 65 20 62 |ecord. | case b|
|00003c60| 6f 6f 6c 65 61 6e 20 6f | 66 0d 20 20 20 20 20 20 |oolean o|f. |
|00003c70| 74 72 75 65 20 3a 20 28 | 6c 6f 6e 67 20 3a 20 4c |true : (|long : L|
|00003c80| 6f 6e 67 69 6e 74 29 3b | 0d 20 20 20 20 20 20 66 |ongint);|. f|
|00003c90| 61 6c 73 65 20 3a 20 28 | 63 68 72 33 2c 63 68 72 |alse : (|chr3,chr|
|00003ca0| 32 2c 63 68 72 31 2c 63 | 68 72 30 20 3a 20 63 68 |2,chr1,c|hr0 : ch|
|00003cb0| 61 72 29 0d 20 20 20 20 | 65 6e 64 3b 0d 76 61 72 |ar). |end;.var|
|00003cc0| 0d 20 20 43 68 61 72 43 | 6f 64 65 20 3a 20 63 68 |. CharC|ode : ch|
|00003cd0| 61 72 3b 0d 20 20 54 72 | 69 63 6b 56 61 72 20 3a |ar;. Tr|ickVar :|
|00003ce0| 20 54 72 69 63 6b 3b 0d | 62 65 67 69 6e 0d 20 20 | Trick;.|begin. |
|00003cf0| 54 72 69 63 6b 56 61 72 | 2e 6c 6f 6e 67 20 3a 3d |TrickVar|.long :=|
|00003d00| 20 74 68 65 45 76 65 6e | 74 2e 6d 65 73 73 61 67 | theEven|t.messag|
|00003d10| 65 3b 0d 20 20 43 68 61 | 72 43 6f 64 65 20 3a 3d |e;. Cha|rCode :=|
|00003d20| 20 54 72 69 63 6b 56 61 | 72 2e 63 68 72 30 3b 0d | TrickVa|r.chr0;.|
|00003d30| 20 20 69 66 20 42 69 74 | 41 6e 64 28 74 68 65 45 | if Bit|And(theE|
|00003d40| 76 65 6e 74 2e 6d 6f 64 | 69 66 69 65 72 73 2c 43 |vent.mod|ifiers,C|
|00003d50| 6d 64 4b 65 79 29 20 3d | 20 43 6d 64 4b 65 79 20 |mdKey) =| CmdKey |
|00003d60| 74 68 65 6e 20 7b 63 68 | 65 63 6b 20 66 6f 72 20 |then {ch|eck for |
|00003d70| 61 20 6d 65 6e 75 20 73 | 65 6c 65 63 74 69 6f 6e |a menu s|election|
|00003d80| 7d 0d 20 20 20 20 62 65 | 67 69 6e 0d 20 20 20 20 |}. be|gin. |
|00003d90| 20 20 50 72 6f 63 65 73 | 73 4d 65 6e 75 28 4d 65 | Proces|sMenu(Me|
|00003da0| 6e 75 4b 65 79 28 43 68 | 61 72 43 6f 64 65 29 29 |nuKey(Ch|arCode))|
|00003db0| 3b 0d 20 20 20 20 65 6e | 64 3b 0d 65 6e 64 3b 0d |;. en|d;.end;.|
|00003dc0| 0d 7b 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |.{######|########|
|00003dd0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003de0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003df0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003e00| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003e10| 23 7d 0d 7b 23 09 09 09 | 09 09 09 09 09 09 20 20 |#}.{#...|...... |
|00003e20| 20 20 20 20 20 23 7d 0d | 7b 23 09 09 09 44 65 61 | #}.|{#...Dea|
|00003e30| 6c 20 57 69 74 68 20 41 | 63 74 69 76 61 74 65 73 |l With A|ctivates|
|00003e40| 20 70 72 6f 63 65 64 75 | 72 65 09 09 09 20 20 20 | procedu|re... |
|00003e50| 20 20 20 20 23 7d 0d 7b | 23 09 09 09 09 09 09 09 | #}.{|#.......|
|00003e60| 09 09 20 20 20 20 20 20 | 20 23 7d 0d 7b 23 23 23 |.. | #}.{###|
|00003e70| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003e80| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003e90| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003ea0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003eb0| 23 23 23 23 23 23 23 23 | 23 23 23 23 7d 0d 0d 70 |########|####}..p|
|00003ec0| 72 6f 63 65 64 75 72 65 | 20 44 65 61 6c 57 69 74 |rocedure| DealWit|
|00003ed0| 68 41 63 74 69 76 61 74 | 65 73 28 74 68 65 45 76 |hActivat|es(theEv|
|00003ee0| 65 6e 74 3a 20 45 76 65 | 6e 74 52 65 63 6f 72 64 |ent: Eve|ntRecord|
|00003ef0| 29 3b 0d 76 61 72 0d 20 | 20 54 61 72 67 65 74 57 |);.var. | TargetW|
|00003f00| 69 6e 64 6f 77 20 3a 20 | 57 69 6e 64 6f 77 50 74 |indow : |WindowPt|
|00003f10| 72 3b 0d 0d 62 65 67 69 | 6e 0d 20 20 54 61 72 67 |r;..begi|n. Targ|
|00003f20| 65 74 57 69 6e 64 6f 77 | 20 3a 3d 20 57 69 6e 64 |etWindow| := Wind|
|00003f30| 6f 77 50 74 72 28 74 68 | 65 45 76 65 6e 74 2e 6d |owPtr(th|eEvent.m|
|00003f40| 65 73 73 61 67 65 29 3b | 0d 20 20 44 72 61 77 47 |essage);|. DrawG|
|00003f50| 72 6f 77 49 63 6f 6e 28 | 54 61 72 67 65 74 57 69 |rowIcon(|TargetWi|
|00003f60| 6e 64 6f 77 29 3b 0d 20 | 20 69 66 20 4f 64 64 28 |ndow);. | if Odd(|
|00003f70| 74 68 65 45 76 65 6e 74 | 2e 6d 6f 64 69 66 69 65 |theEvent|.modifie|
|00003f80| 72 73 29 20 74 68 65 6e | 0d 20 20 20 20 62 65 67 |rs) then|. beg|
|00003f90| 69 6e 0d 20 20 20 20 20 | 20 53 65 74 50 6f 72 74 |in. | SetPort|
|00003fa0| 28 54 61 72 67 65 74 57 | 69 6e 64 6f 77 29 3b 0d |(TargetW|indow);.|
|00003fb0| 20 20 20 20 65 6e 64 3b | 0d 65 6e 64 3b 0d 0d 7b | end;|.end;..{|
|00003fc0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003fd0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003fe0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003ff0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004000| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 7d |########|#######}|
|00004010| 0d 7b 23 09 09 09 09 09 | 09 09 09 09 20 20 20 20 |.{#.....|.... |
|00004020| 20 20 20 23 7d 0d 7b 23 | 09 09 09 44 65 61 6c 20 | #}.{#|...Deal |
|00004030| 57 69 74 68 20 55 70 64 | 61 74 65 73 20 70 72 6f |With Upd|ates pro|
|00004040| 63 65 64 75 72 65 09 09 | 09 20 20 20 20 20 20 20 |cedure..|. |
|00004050| 23 7d 0d 7b 23 09 09 09 | 09 09 09 09 09 09 20 20 |#}.{#...|...... |
|00004060| 20 20 20 20 20 23 7d 0d | 7b 23 23 23 23 23 23 23 | #}.|{#######|
|00004070| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004080| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004090| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000040a0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000040b0| 23 23 23 23 23 23 23 23 | 7d 0d 0d 70 72 6f 63 65 |########|}..proce|
|000040c0| 64 75 72 65 20 44 65 61 | 6c 57 69 74 68 55 70 64 |dure Dea|lWithUpd|
|000040d0| 61 74 65 73 28 74 68 65 | 45 76 65 6e 74 3a 20 45 |ates(the|Event: E|
|000040e0| 76 65 6e 74 52 65 63 6f | 72 64 29 3b 0d 76 61 72 |ventReco|rd);.var|
|000040f0| 0d 20 20 55 70 44 61 74 | 65 57 69 6e 64 6f 77 20 |. UpDat|eWindow |
|00004100| 3a 20 57 69 6e 64 6f 77 | 50 74 72 3b 0d 20 20 74 |: Window|Ptr;. t|
|00004110| 65 6d 70 50 6f 72 74 20 | 3a 20 57 69 6e 64 6f 77 |empPort |: Window|
|00004120| 50 74 72 3b 0d 0d 62 65 | 67 69 6e 0d 20 20 55 70 |Ptr;..be|gin. Up|
|00004130| 44 61 74 65 57 69 6e 64 | 6f 77 20 3a 3d 20 57 69 |DateWind|ow := Wi|
|00004140| 6e 64 6f 77 50 74 72 28 | 74 68 65 45 76 65 6e 74 |ndowPtr(|theEvent|
|00004150| 2e 6d 65 73 73 61 67 65 | 29 3b 0d 20 20 47 65 74 |.message|);. Get|
|00004160| 50 6f 72 74 28 74 65 6d | 70 50 6f 72 74 29 3b 0d |Port(tem|pPort);.|
|00004170| 20 20 20 20 53 65 74 50 | 6f 72 74 28 55 70 44 61 | SetP|ort(UpDa|
|00004180| 74 65 57 69 6e 64 6f 77 | 29 3b 0d 20 20 20 20 42 |teWindow|);. B|
|00004190| 65 67 69 6e 55 70 44 61 | 74 65 28 55 70 44 61 74 |eginUpDa|te(UpDat|
|000041a0| 65 57 69 6e 64 6f 77 29 | 3b 0d 20 20 20 20 20 20 |eWindow)|;. |
|000041b0| 45 72 61 73 65 52 65 63 | 74 28 55 70 44 61 74 65 |EraseRec|t(UpDate|
|000041c0| 57 69 6e 64 6f 77 5e 2e | 70 6f 72 74 52 65 63 74 |Window^.|portRect|
|000041d0| 29 3b 0d 20 20 20 20 20 | 20 46 69 6c 6c 52 65 63 |);. | FillRec|
|000041e0| 74 28 52 65 67 57 44 45 | 46 57 69 6e 64 6f 77 5e |t(RegWDE|FWindow^|
|000041f0| 2e 50 6f 72 74 52 65 63 | 74 2c 6c 74 47 72 61 79 |.PortRec|t,ltGray|
|00004200| 29 3b 0d 20 20 20 20 20 | 20 44 72 61 77 47 72 6f |);. | DrawGro|
|00004210| 77 49 63 6f 6e 28 55 70 | 44 61 74 65 57 69 6e 64 |wIcon(Up|DateWind|
|00004220| 6f 77 29 3b 0d 20 20 20 | 20 45 6e 64 55 70 44 61 |ow);. | EndUpDa|
|00004230| 74 65 28 55 70 44 61 74 | 65 57 69 6e 64 6f 77 29 |te(UpDat|eWindow)|
|00004240| 3b 0d 20 20 53 65 74 50 | 6f 72 74 28 74 65 6d 70 |;. SetP|ort(temp|
|00004250| 50 6f 72 74 29 3b 0d 65 | 6e 64 3b 0d 0d 7b 23 23 |Port);.e|nd;..{##|
|00004260| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004270| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004280| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004290| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000042a0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 7d 0d 7b |########|#####}.{|
|000042b0| 23 09 09 09 09 09 09 09 | 09 09 20 20 20 20 20 20 |#.......|.. |
|000042c0| 20 23 7d 0d 7b 23 09 09 | 09 4d 61 69 6e 45 76 65 | #}.{#..|.MainEve|
|000042d0| 6e 74 4c 6f 6f 70 20 70 | 72 6f 63 65 64 75 72 65 |ntLoop p|rocedure|
|000042e0| 09 09 09 09 20 20 20 20 | 20 20 20 23 7d 0d 7b 23 |.... | #}.{#|
|000042f0| 09 09 09 09 09 09 09 09 | 09 20 20 20 20 20 20 20 |........|. |
|00004300| 23 7d 0d 7b 23 23 23 23 | 23 23 23 23 23 23 23 23 |#}.{####|########|
|00004310| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004320| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004330| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004340| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004350| 23 23 23 7d 0d 0d 70 72 | 6f 63 65 64 75 72 65 20 |###}..pr|ocedure |
|00004360| 4d 61 69 6e 45 76 65 6e | 74 4c 6f 6f 70 3b 0d 76 |MainEven|tLoop;.v|
|00004370| 61 72 0d 20 20 45 76 65 | 6e 74 20 3a 20 45 76 65 |ar. Eve|nt : Eve|
|00004380| 6e 74 52 65 63 6f 72 64 | 3b 0d 20 20 50 72 6f 63 |ntRecord|;. Proc|
|00004390| 65 73 73 49 74 20 3a 20 | 62 6f 6f 6c 65 61 6e 3b |essIt : |boolean;|
|000043a0| 0d 62 65 67 69 6e 0d 20 | 20 72 65 70 65 61 74 0d |.begin. | repeat.|
|000043b0| 20 20 20 20 53 79 73 74 | 65 6d 54 61 73 6b 3b 0d | Syst|emTask;.|
|000043c0| 20 20 20 20 50 72 6f 63 | 65 73 73 49 74 20 3a 3d | Proc|essIt :=|
|000043d0| 20 47 65 74 4e 65 78 74 | 45 76 65 6e 74 28 65 76 | GetNext|Event(ev|
|000043e0| 65 72 79 45 76 65 6e 74 | 2c 20 45 76 65 6e 74 29 |eryEvent|, Event)|
|000043f0| 3b 20 7b 20 67 65 74 20 | 74 68 65 20 6e 65 78 74 |; { get |the next|
|00004400| 20 65 76 65 6e 74 20 69 | 6e 20 71 75 65 75 65 7d | event i|n queue}|
|00004410| 0d 20 20 20 20 69 66 20 | 50 72 6f 63 65 73 73 49 |. if |ProcessI|
|00004420| 74 20 74 68 65 6e 0d 20 | 20 20 20 20 20 62 65 67 |t then. | beg|
|00004430| 69 6e 0d 20 20 20 20 20 | 20 20 20 63 61 73 65 20 |in. | case |
|00004440| 45 76 65 6e 74 2e 77 68 | 61 74 20 6f 66 0d 09 20 |Event.wh|at of.. |
|00004450| 20 6d 6f 75 73 65 44 6f | 77 6e 20 3a 20 44 65 61 | mouseDo|wn : Dea|
|00004460| 6c 57 69 74 68 4d 6f 75 | 73 65 44 6f 77 6e 73 28 |lWithMou|seDowns(|
|00004470| 45 76 65 6e 74 29 3b 0d | 09 20 20 41 75 74 6f 4b |Event);.|. AutoK|
|00004480| 65 79 20 3a 20 44 65 61 | 6c 57 69 74 68 4b 65 79 |ey : Dea|lWithKey|
|00004490| 44 6f 77 6e 73 28 45 76 | 65 6e 74 29 3b 0d 09 20 |Downs(Ev|ent);.. |
|000044a0| 20 4b 65 79 44 6f 77 6e | 20 3a 20 44 65 61 6c 57 | KeyDown| : DealW|
|000044b0| 69 74 68 4b 65 79 44 6f | 77 6e 73 28 45 76 65 6e |ithKeyDo|wns(Even|
|000044c0| 74 29 3b 0d 09 20 20 41 | 63 74 69 76 61 74 65 45 |t);.. A|ctivateE|
|000044d0| 76 74 20 3a 20 44 65 61 | 6c 57 69 74 68 41 63 74 |vt : Dea|lWithAct|
|000044e0| 69 76 61 74 65 73 28 45 | 76 65 6e 74 29 3b 0d 09 |ivates(E|vent);..|
|000044f0| 20 20 55 70 64 61 74 65 | 45 76 74 20 3a 20 44 65 | Update|Evt : De|
|00004500| 61 6c 57 69 74 68 55 70 | 64 61 74 65 73 28 45 76 |alWithUp|dates(Ev|
|00004510| 65 6e 74 29 3b 0d 09 65 | 6e 64 3b 0d 20 20 20 20 |ent);..e|nd;. |
|00004520| 20 20 65 6e 64 3b 0d 20 | 20 75 6e 74 69 6c 20 44 | end;. | until D|
|00004530| 6f 6e 65 3b 0d 65 6e 64 | 3b 0d 0d 7b 23 23 23 23 |one;.end|;..{####|
|00004540| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004550| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004560| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004570| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004580| 23 23 23 23 23 23 23 23 | 23 23 23 7d 0d 7b 23 09 |########|###}.{#.|
|00004590| 09 09 09 09 09 09 09 09 | 20 20 20 20 20 20 20 23 |........| #|
|000045a0| 7d 0d 7b 23 09 09 09 20 | 20 20 20 20 53 65 74 75 |}.{#... | Setu|
|000045b0| 70 4d 65 6d 6f 72 79 20 | 70 72 6f 63 65 64 75 72 |pMemory |procedur|
|000045c0| 65 09 09 09 20 20 20 20 | 20 20 20 23 7d 0d 7b 23 |e... | #}.{#|
|000045d0| 09 09 09 09 09 09 09 09 | 09 20 20 20 20 20 20 20 |........|. |
|000045e0| 23 7d 0d 7b 23 23 23 23 | 23 23 23 23 23 23 23 23 |#}.{####|########|
|000045f0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004600| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004610| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004620| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004630| 23 23 23 7d 0d 0d 70 72 | 6f 63 65 64 75 72 65 20 |###}..pr|ocedure |
|00004640| 53 65 74 75 70 4d 65 6d | 6f 72 79 3b 0d 76 61 72 |SetupMem|ory;.var|
|00004650| 0d 20 20 78 20 3a 20 4c | 6f 6e 67 69 6e 74 3b 0d |. x : L|ongint;.|
|00004660| 62 65 67 69 6e 0d 20 20 | 78 20 3a 3d 20 4f 52 44 |begin. |x := ORD|
|00004670| 34 28 41 70 70 6c 69 63 | 5a 6f 6e 65 29 20 2b 20 |4(Applic|Zone) + |
|00004680| 31 32 38 30 30 30 3b 09 | 7b 20 63 6f 6d 70 61 63 |128000;.|{ compac|
|00004690| 74 20 6d 65 6d 6f 72 79 | 2c 20 67 72 6f 77 20 61 |t memory|, grow a|
|000046a0| 70 70 6c 69 63 61 74 69 | 6f 6e 20 73 70 61 63 65 |pplicati|on space|
|000046b0| 7d 0d 20 20 53 65 74 41 | 70 70 6c 4c 69 6d 69 74 |}. SetA|pplLimit|
|000046c0| 28 50 6f 69 6e 74 65 72 | 28 78 29 29 3b 0d 20 20 |(Pointer|(x));. |
|000046d0| 4d 61 78 41 70 70 6c 5a | 6f 6e 65 3b 0d 20 20 4d |MaxApplZ|one;. M|
|000046e0| 6f 72 65 4d 61 73 74 65 | 72 73 3b 0d 20 20 4d 6f |oreMaste|rs;. Mo|
|000046f0| 72 65 4d 61 73 74 65 72 | 73 3b 0d 20 20 4d 6f 72 |reMaster|s;. Mor|
|00004700| 65 4d 61 73 74 65 72 73 | 3b 0d 65 6e 64 3b 0d 0d |eMasters|;.end;..|
|00004710| 7b 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |{#######|########|
|00004720| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004730| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004740| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004750| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004760| 7d 0d 7b 23 09 09 09 09 | 09 09 09 09 09 20 20 20 |}.{#....|..... |
|00004770| 20 20 20 20 23 7d 0d 7b | 23 09 09 09 20 20 20 20 | #}.{|#... |
|00004780| 20 53 65 74 75 70 4c 69 | 6d 69 74 73 09 09 09 09 | SetupLi|mits....|
|00004790| 20 20 20 20 20 20 20 23 | 7d 0d 7b 23 09 09 09 09 | #|}.{#....|
|000047a0| 09 09 09 09 09 20 20 20 | 20 20 20 20 23 7d 0d 7b |..... | #}.{|
|000047b0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000047c0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000047d0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000047e0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000047f0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 7d |########|#######}|
|00004800| 0d 0d 70 72 6f 63 65 64 | 75 72 65 20 53 65 74 75 |..proced|ure Setu|
|00004810| 70 4c 69 6d 69 74 73 3b | 09 09 7b 20 73 65 74 20 |pLimits;|..{ set |
|00004820| 75 70 20 74 68 65 20 64 | 72 61 67 67 69 6e 67 20 |up the d|ragging |
|00004830| 61 6e 64 20 67 72 6f 77 | 69 6e 67 20 72 65 63 74 |and grow|ing rect|
|00004840| 73 7d 0d 76 61 72 0d 20 | 20 53 63 72 65 65 6e 20 |s}.var. | Screen |
|00004850| 3a 20 52 65 63 74 3b 0d | 62 65 67 69 6e 0d 20 20 |: Rect;.|begin. |
|00004860| 53 63 72 65 65 6e 20 3a | 3d 20 53 63 72 65 65 6e |Screen :|= Screen|
|00004870| 42 69 74 73 2e 62 6f 75 | 6e 64 73 3b 0d 20 20 77 |Bits.bou|nds;. w|
|00004880| 69 74 68 20 53 63 72 65 | 65 6e 20 64 6f 0d 20 20 |ith Scre|en do. |
|00004890| 20 20 62 65 67 69 6e 0d | 20 20 20 20 20 20 53 65 | begin.| Se|
|000048a0| 74 52 65 63 74 28 44 72 | 61 67 41 72 65 61 2c 6c |tRect(Dr|agArea,l|
|000048b0| 65 66 74 2b 34 2c 74 6f | 70 2b 32 34 2c 72 69 67 |eft+4,to|p+24,rig|
|000048c0| 68 74 2d 34 2c 62 6f 74 | 74 6f 6d 2d 34 29 3b 0d |ht-4,bot|tom-4);.|
|000048d0| 20 20 20 20 20 20 53 65 | 74 52 65 63 74 28 47 72 | Se|tRect(Gr|
|000048e0| 6f 77 41 72 65 61 2c 6c | 65 66 74 2c 74 6f 70 2b |owArea,l|eft,top+|
|000048f0| 32 34 2c 72 69 67 68 74 | 2c 62 6f 74 74 6f 6d 29 |24,right|,bottom)|
|00004900| 3b 0d 20 20 20 20 65 6e | 64 3b 0d 65 6e 64 3b 0d |;. en|d;.end;.|
|00004910| 0d 7b 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |.{######|########|
|00004920| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004930| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004940| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004950| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004960| 23 7d 0d 7b 23 09 09 09 | 09 09 09 09 09 09 20 20 |#}.{#...|...... |
|00004970| 20 20 20 20 20 23 7d 0d | 7b 23 09 09 09 09 4d 61 | #}.|{#....Ma|
|00004980| 6b 65 4d 65 6e 75 73 20 | 70 72 6f 63 65 64 75 72 |keMenus |procedur|
|00004990| 65 09 09 09 20 20 20 20 | 20 20 20 23 7d 0d 7b 23 |e... | #}.{#|
|000049a0| 09 09 09 09 09 09 09 09 | 09 20 20 20 20 20 20 20 |........|. |
|000049b0| 23 7d 0d 7b 23 23 23 23 | 23 23 23 23 23 23 23 23 |#}.{####|########|
|000049c0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000049d0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000049e0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000049f0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004a00| 23 23 23 7d 0d 0d 70 72 | 6f 63 65 64 75 72 65 20 |###}..pr|ocedure |
|00004a10| 4d 61 6b 65 4d 65 6e 75 | 73 3b 09 09 7b 20 67 65 |MakeMenu|s;..{ ge|
|00004a20| 74 20 74 68 65 20 6d 65 | 6e 75 73 20 26 20 64 69 |t the me|nus & di|
|00004a30| 73 70 6c 61 79 20 74 68 | 65 6d 7d 0d 76 61 72 0d |splay th|em}.var.|
|00004a40| 20 20 69 6e 64 65 78 20 | 3a 20 49 6e 74 65 67 65 | index |: Intege|
|00004a50| 72 3b 0d 62 65 67 69 6e | 0d 20 20 66 6f 72 20 69 |r;.begin|. for i|
|00004a60| 6e 64 65 78 20 3a 3d 20 | 41 70 70 6c 65 4d 65 6e |ndex := |AppleMen|
|00004a70| 75 49 44 20 74 6f 20 45 | 64 69 74 4d 65 6e 75 49 |uID to E|ditMenuI|
|00004a80| 44 20 64 6f 0d 20 20 20 | 20 62 65 67 69 6e 0d 20 |D do. | begin. |
|00004a90| 20 20 20 20 20 6d 79 4d | 65 6e 75 73 5b 69 6e 64 | myM|enus[ind|
|00004aa0| 65 78 5d 20 3a 3d 20 47 | 65 74 4d 65 6e 75 28 69 |ex] := G|etMenu(i|
|00004ab0| 6e 64 65 78 29 3b 0d 20 | 20 20 20 20 20 49 6e 73 |ndex);. | Ins|
|00004ac0| 65 72 74 4d 65 6e 75 28 | 6d 79 4d 65 6e 75 73 5b |ertMenu(|myMenus[|
|00004ad0| 69 6e 64 65 78 5d 2c 30 | 29 3b 0d 20 20 20 20 65 |index],0|);. e|
|00004ae0| 6e 64 3b 0d 20 20 41 64 | 64 52 65 73 4d 65 6e 75 |nd;. Ad|dResMenu|
|00004af0| 28 6d 79 4d 65 6e 75 73 | 5b 41 70 70 6c 65 4d 65 |(myMenus|[AppleMe|
|00004b00| 6e 75 49 44 5d 2c 27 44 | 52 56 52 27 29 3b 0d 20 |nuID],'D|RVR');. |
|00004b10| 20 44 72 61 77 4d 65 6e | 75 42 61 72 3b 0d 65 6e | DrawMen|uBar;.en|
|00004b20| 64 3b 0d 0d 7b 23 23 23 | 23 23 23 23 23 23 23 23 |d;..{###|########|
|00004b30| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004b40| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004b50| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004b60| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004b70| 23 23 23 23 7d 0d 7b 23 | 09 09 09 09 09 09 09 09 |####}.{#|........|
|00004b80| 09 20 20 20 20 20 20 20 | 23 7d 0d 7b 23 09 09 09 |. |#}.{#...|
|00004b90| 50 72 6f 67 72 61 6d 20 | 45 78 65 63 75 74 69 6f |Program |Executio|
|00004ba0| 6e 20 53 74 61 72 74 73 | 20 48 65 72 65 09 09 09 |n Starts| Here...|
|00004bb0| 20 20 20 20 20 20 20 23 | 7d 0d 7b 23 09 09 09 09 | #|}.{#....|
|00004bc0| 09 09 09 09 09 20 20 20 | 20 20 20 20 23 7d 0d 7b |..... | #}.{|
|00004bd0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004be0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004bf0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004c00| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004c10| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 7d |########|#######}|
|00004c20| 0d 0d 62 65 67 69 6e 0d | 20 20 44 6f 6e 65 20 3a |..begin.| Done :|
|00004c30| 3d 20 66 61 6c 73 65 3b | 09 09 7b 20 77 65 20 6a |= false;|..{ we j|
|00004c40| 75 73 74 20 73 74 61 72 | 74 65 64 21 21 21 7d 0d |ust star|ted!!!}.|
|00004c50| 20 20 46 6c 75 73 68 45 | 76 65 6e 74 73 28 65 76 | FlushE|vents(ev|
|00004c60| 65 72 79 45 76 65 6e 74 | 2c 30 29 3b 09 7b 20 67 |eryEvent|,0);.{ g|
|00004c70| 65 74 20 72 69 64 20 6f | 66 20 6c 69 6e 67 65 72 |et rid o|f linger|
|00004c80| 69 6e 67 20 65 76 65 6e | 74 73 7d 0d 0d 20 20 49 |ing even|ts}.. I|
|00004c90| 6e 69 74 47 72 61 66 28 | 40 74 68 65 50 6f 72 74 |nitGraf(|@thePort|
|00004ca0| 29 3b 09 09 7b 20 77 65 | 20 6e 65 65 64 20 51 75 |);..{ we| need Qu|
|00004cb0| 69 63 6b 44 72 61 77 7d | 0d 20 20 49 6e 69 74 46 |ickDraw}|. InitF|
|00004cc0| 6f 6e 74 73 3b 09 09 09 | 7b 20 77 65 20 6e 65 65 |onts;...|{ we nee|
|00004cd0| 64 20 46 6f 6e 74 73 7d | 0d 20 20 49 6e 69 74 57 |d Fonts}|. InitW|
|00004ce0| 69 6e 64 6f 77 73 3b 09 | 09 09 7b 20 77 65 20 6e |indows;.|..{ we n|
|00004cf0| 65 65 64 20 57 69 6e 64 | 6f 77 73 7d 0d 20 20 49 |eed Wind|ows}. I|
|00004d00| 6e 69 74 4d 65 6e 75 73 | 3b 09 09 09 7b 20 77 65 |nitMenus|;...{ we|
|00004d10| 20 6e 65 65 64 20 4d 65 | 6e 75 73 7d 0d 20 20 54 | need Me|nus}. T|
|00004d20| 45 49 6e 69 74 3b 09 09 | 09 7b 20 77 65 20 6e 65 |EInit;..|.{ we ne|
|00004d30| 65 64 20 54 65 78 74 20 | 45 64 69 74 7d 0d 20 20 |ed Text |Edit}. |
|00004d40| 49 6e 69 74 44 69 61 6c | 6f 67 73 28 6e 69 6c 29 |InitDial|ogs(nil)|
|00004d50| 3b 09 09 7b 20 77 65 20 | 6e 65 65 64 20 44 69 61 |;..{ we |need Dia|
|00004d60| 6c 6f 67 73 7d 0d 20 20 | 49 6e 69 74 43 75 72 73 |logs}. |InitCurs|
|00004d70| 6f 72 3b 09 09 09 7b 20 | 73 68 6f 77 20 74 68 65 |or;...{ |show the|
|00004d80| 20 63 75 72 73 6f 72 7d | 0d 0d 20 20 53 65 74 75 | cursor}|.. Setu|
|00004d90| 70 4c 69 6d 69 74 73 3b | 09 09 09 7b 20 69 6e 69 |pLimits;|...{ ini|
|00004da0| 74 69 61 6c 69 7a 65 20 | 74 68 65 20 73 63 72 65 |tialize |the scre|
|00004db0| 65 6e 20 73 69 7a 65 73 | 7d 0d 20 20 53 65 74 75 |en sizes|}. Setu|
|00004dc0| 70 4d 65 6d 6f 72 79 3b | 09 09 09 7b 20 64 6f 20 |pMemory;|...{ do |
|00004dd0| 73 6f 6d 65 20 6d 65 6d | 6f 72 79 20 6d 61 6e 61 |some mem|ory mana|
|00004de0| 67 65 6d 65 6e 74 7d 0d | 20 20 4d 61 6b 65 4d 65 |gement}.| MakeMe|
|00004df0| 6e 75 73 3b 09 09 09 7b | 20 67 6f 20 63 72 65 61 |nus;...{| go crea|
|00004e00| 74 65 20 74 68 65 20 6d | 65 6e 75 73 7d 0d 20 20 |te the m|enus}. |
|00004e10| 0d 20 20 52 65 67 57 44 | 45 46 57 69 6e 64 6f 77 |. RegWD|EFWindow|
|00004e20| 20 3a 3d 20 47 65 74 4e | 65 77 57 69 6e 64 6f 77 | := GetN|ewWindow|
|00004e30| 28 57 69 6e 64 52 65 73 | 49 44 2c 6e 69 6c 2c 50 |(WindRes|ID,nil,P|
|00004e40| 6f 69 6e 74 65 72 28 2d | 31 29 29 3b 7b 6e 6f 74 |ointer(-|1));{not|
|00004e50| 65 2c 20 74 68 65 20 77 | 69 6e 64 6f 77 7d 0d 20 |e, the w|indow}. |
|00004e60| 20 6d 79 57 69 6e 64 6f | 77 50 65 65 6b 20 3a 3d | myWindo|wPeek :=|
|00004e70| 20 57 69 6e 64 6f 77 50 | 65 65 6b 28 52 65 67 57 | WindowP|eek(RegW|
|00004e80| 44 45 46 57 69 6e 64 6f | 77 29 3b 09 09 20 20 20 |DEFWindo|w);.. |
|00004e90| 7b 69 73 20 63 72 65 61 | 74 65 64 20 69 6e 76 69 |{is crea|ted invi|
|00004ea0| 73 69 62 6c 65 7d 0d 20 | 20 0d 20 20 6d 79 57 69 |sible}. | . myWi|
|00004eb0| 6e 64 6f 77 50 65 65 6b | 5e 2e 77 69 6e 64 6f 77 |ndowPeek|^.window|
|00004ec0| 44 65 66 50 72 6f 63 20 | 3a 3d 20 4e 65 77 48 61 |DefProc |:= NewHa|
|00004ed0| 6e 64 6c 65 28 30 29 3b | 0d 20 20 6d 79 57 69 6e |ndle(0);|. myWin|
|00004ee0| 64 6f 77 50 65 65 6b 5e | 2e 77 69 6e 64 6f 77 44 |dowPeek^|.windowD|
|00004ef0| 65 66 50 72 6f 63 5e 20 | 3a 3d 20 50 74 72 28 40 |efProc^ |:= Ptr(@|
|00004f00| 4d 79 57 69 6e 64 6f 77 | 44 65 66 29 3b 0d 20 20 |MyWindow|Def);. |
|00004f10| 0d 20 20 53 68 6f 77 57 | 69 6e 64 6f 77 28 52 65 |. ShowW|indow(Re|
|00004f20| 67 57 44 45 46 57 69 6e | 64 6f 77 29 3b 20 7b 2e |gWDEFWin|dow); {.|
|00004f30| 2e 2e 2e 6e 6f 77 20 77 | 65 20 63 61 6e 20 73 68 |...now w|e can sh|
|00004f40| 6f 77 20 69 74 21 7d 0d | 20 20 53 65 74 50 6f 72 |ow it!}.| SetPor|
|00004f50| 74 28 52 65 67 57 44 45 | 46 57 69 6e 64 6f 77 29 |t(RegWDE|FWindow)|
|00004f60| 3b 0d 20 20 46 69 6c 6c | 52 65 63 74 28 52 65 67 |;. Fill|Rect(Reg|
|00004f70| 57 44 45 46 57 69 6e 64 | 6f 77 5e 2e 50 6f 72 74 |WDEFWind|ow^.Port|
|00004f80| 52 65 63 74 2c 6c 74 47 | 72 61 79 29 3b 0d 20 20 |Rect,ltG|ray);. |
|00004f90| 0d 20 20 4d 61 69 6e 45 | 76 65 6e 74 4c 6f 6f 70 |. MainE|ventLoop|
|00004fa0| 3b 09 09 7b 20 2e 2e 2e | 61 6e 64 20 74 61 6b 65 |;..{ ...|and take|
|00004fb0| 20 63 61 72 65 20 6f 66 | 20 62 75 73 69 6e 65 73 | care of| busines|
|00004fc0| 73 7d 0d 65 6e 64 2e 0d | 00 00 00 00 00 00 00 00 |s}.end..|........|
|00004fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005000| 00 00 01 00 00 00 01 16 | 00 00 00 16 00 00 00 46 |........|.......F|
|00005010| 3a 28 00 14 61 00 fd 6a | 9a 40 59 45 61 00 fd 74 |:(..a..j|.@YEa..t|
|00005020| 7c 00 70 01 20 53 61 a8 | 67 5e 28 48 7e 00 20 53 ||.p. Sa.|g^(H~. S|
|00005030| 0b 52 65 67 57 44 45 46 | 2e 50 61 73 02 00 00 00 |.RegWDEF|.Pas....|
|00005040| 54 45 58 54 45 44 49 54 | 01 00 00 09 00 06 00 00 |TEXTEDIT|........|
|00005050| 00 00 54 45 58 54 45 44 | 49 54 01 00 00 09 00 06 |..TEXTED|IT......|
|00005060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005070| 00 00 9a c8 5a 47 00 00 | 4f 48 00 00 01 5c 10 14 |....ZG..|OH...\..|
|00005080| 49 f4 00 05 60 a6 58 46 | 20 53 31 46 00 02 48 46 |I...`.XF| S1F..HF|
|00005090| 31 46 00 04 42 67 a8 88 | a8 73 60 00 fc d6 2f 08 |1F..Bg..|.s`.../.|
|000050a0| 20 55 48 68 ff e8 a8 9d | 3f 3c 00 0b a8 9c a8 a2 | UHh....|?<......|
|000050b0| a8 9e 4e 75 00 00 03 24 | 60 0a 00 00 43 44 45 46 |..Nu...$|`...CDEF|
|000050c0| 00 00 00 04 4e 56 ff e2 | 48 e7 1f 78 0c 6e 00 03 |....NV..|H..x.n..|
|000050d0| 00 0c 6c 30 48 6e ff ec | a8 98 a8 9e 41 ee 00 08 |..l0Hn..|....A...|
|000050e0| 26 18 30 18 26 58 3c 18 | 3e 06 02 46 00 07 42 90 |&.0.&X<.|>..F..B.|
|000050f0| 20 53 d0 40 43 fa 00 1c | d2 f1 00 00 4e 91 48 6e | S.@C...|....N.Hn|
|00005100| 00 00 00 0a 00 09 06 4d | 6f 6e 61 63 6f 00 00 00 |.......M|onaco...|
|00005110| 00 04 00 06 00 08 00 00 | 01 00 00 00 01 16 00 00 |........|........|
|00005120| 00 16 00 00 00 46 00 00 | cc 24 04 0c 00 00 00 1c |.....F..|.$......|
|00005130| 00 46 00 01 45 46 4e 54 | 00 00 00 12 45 54 41 42 |.F..EFNT|....ETAB|
|00005140| 00 00 00 1e 03 eb ff ff | 00 00 00 00 00 01 6b ae |........|......k.|
|00005150| 03 ec ff ff 00 00 00 0e | 00 01 6b a2 00 00 00 00 |........|..k.....|
|00005160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+
